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I .  INTRODUCTION 

It  Is  generally  recognized  that  the  geological  (and  hydrological) 
conditions  more  than  any  other  factor  determine  the  degree  of  difficulty 
and  the  cost  of  a  given  tunnel  project.  This  is  easy  to  see,  since  the 
tunneling  system,  support  and  liner  design,  and  i_otal  system  performance 
are  a  direct  and  strong  function  of  the  geologic  medium  to  be  tunneled 
through.  In  essence,  the  latter  is  truly  a  key  variable  in  the  total 
economic  picture  of  a  project.  As  a  result,  geologic  exploration  and 
prediction  techniques  have  a  very  important  influence  on  the  planning, 
design,  and  performance  of  an  excavation  system.  Although  it  is  not  yet 
possible  to  identify  a  return-on-investment  relationship  for  geological 
exploration  it  is  clear  that  a  more  accurate  knowledge  of  geological 
conditions  will  permit  considerable  savings  from  the  improved  planning 
and  design  of  a  project. 

At  present,  less  than  2%  of  the  total  project  cost  is  generally 
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allocated  to  pre-excavation  geological  investigations.  *  This  probably 
reflects  the  fact  that  the  scope  and  extent  of  the  geological  survey  is 
a  compromise  between  technical  desirability  and  economic  feasibility. 
Moreover,  the  point  of  compromise  may  not  be  reached  objectively  in  many 
instances.  Budgetary  considerations  of  sponsoring  agencies,  political 
considerations,  etc.,  may  also  play  a  role  in  the  decision  process.  In 
addition,  no  comparative  estimates  for  total  project  cost  versus  the 
geological  investigation  investment  has  ever  been  made,  and  even  if  they 
had,  considerable  doubt  about  the  validity  of  the  comparison  would  remain 
since  it  is  never  possible  to  "excavate  again,  this  time  with  more  geo¬ 
logical  information."  However,  some  indications  of  the  significant  and 
perhaps  unnecessary  costs  which  may  be  incurred  because  of  poor  or 
limited  geological  data  can  be  drawn  from  isolated  case  histories.  As 
an  example,  there  were  only  two  bore  holes  made  prior  to  the  excavation 
of  the  massive  underground  defense  complex  in  Cheyenne  Mountain  for  the 
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North  American  Air  Defense  Command  (NORAD).  Further  geological  explora¬ 
tion  was  scheduled  but  never  funded  because  of  a  controversy  about  the 
project  itself.  When  funding  for  continuation  of  the  project  was  even¬ 
tually  released  it  was  allocated  f  )r  excavation  alone  not  geological 
exploration,  and  partlv  as  a  result,  poor  geology  was  encountered  unex¬ 
pectedly  at  a  critical  intersection  of  two  project  chambers.  Eventually 
new  plans  had  to  be  drawn  up,  rotating  the  original  design  in  an  attempt 
to  avoid  bad  ground.  Even  then  extensive  and  costly  reinforcement  was 
necessary  at  the  worst  intersection.' 

Traditionally,  geological  surveying,  measurements,  and  prediction 
are  accomplished  before  any  detailed  designs  and  cost  estimates  are 
attempted.  Although  geophysical  measurements  are  sometimes  made  during 
the  course  of  the  excavation  process,  the  current  practice  is  to  rely 
heavily  on  the  geological  work  prior  to  excavation.  As  improved 
techniques  for  in  situ  measurement  of  geological  conditions  are  developed 
it  in  likely  that  greater  emphasis  will  be  placed  on  evaluating  the 
information  provided  by  these  techniques  to  improve  the  safety  and  per¬ 
formance  of  excavating. 

Depending  upon  the  extent  of  the  geological  survey  and  measurement 
program,  the  information  and  data  that  it  evokes  might  be  used  in  site 
selection  and  feasibility  determination,  preliminary  design  and  cost 
estimates,  or  detailed  construction  planning.  However,  as  a  result  of 
both  the  coarse  nature  of  geological  measurements  and  the  cost  of  detailed 
exploration  programs,  such  decisions  and  studies  are  almost  always  based 
on  incomplete  information.  Consequently,  engineering  judgment  tempered 
by  previous  experience  plays  a  significant  role  in  the  decision  processes. 
We  shall  have  more  to  say  about  this  in  the  following  pages,  but  given 
that  the  site,  geometry,  and  orientation  of  a  tunnel  project  have  been 
chosen,  we  can  focus  attention  on  the  fundamental  data  requirements  im¬ 
posed  unon  the  engineering  geologist. 


1-6 


The  results  of  a  geological  exploration  program  should  consii  t  of 
sufficient  amounts  of  data  concerning  lithological,  hydrological,  and 
rock-mass  properties  co  enable  a  designer  and  contractor  to  plan  a 
construction  project  with  confidence.  This  includes  both  the  quantita¬ 
tive  aspects  engineering  and  excavation  system  design,  and  scheduling 
plans  arid  cost  estimates.  In  other  words,  the  contractor  wants  answers 
to  the  following  key  questions: 

1.  What  would  be  the  most  suitable  excavation  method? 

2.  What  are  the  ground  support  and  tunnel  liner  requirements 
along  the  length  of  a  proposed  tunnel? 

3.  How  much  ground-water  inflow  can  be  expected  along  the 
tunnel  length? 

4.  What  is  the  location  of  potential  geologic  hazards? 

The  extent  to  which  such  questions  can  be  answered  with  precision 
and  reliability  determines  to  a  large  extent  the  ultimate  cost-performance 
success  of  the  construction  project. 
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II.  SURVEY  AND  PREDICTION  TECHNIQUES 

We  shall  present  next  a  brief  survey  of  those  measurement  techni¬ 
ques  and  procedures  that  are  now  in  general  use  for  geological  surveying 
and  prediction.  Since  comprehensive  discussions  along  these  lines  are 
readily  available  in  the  literature/  9  we  shall  focus  our  attention 
primarily  on  the  extent  to  which  these  various  techniques  are  able  to 
delineate  geological  discontinuities  and  inhomogeneities  such  as  faults, 
joints,  bedding  planes,  rock-soil  interfaces,  and  ground-water  concentra¬ 
tions.  In  addition,  we  shall  present  relevant  cost  data,  and  discuss  the 
technical  and  economic  factors  which  influence  the  scope  of  a  typical 
geological  exploration  program. 

A  comprehensive  geological  exploration  program  typically  involves 
the  following  kinds  of  activities: 

•  Review  of  available  data  (literature  research) 

•  Surface  exploration  and  mapping 

•  Subsurface  studies 

•  Laboratory  analysis  of  field  samples 

The  degree  to  which  efforts  are  directed  in  each  area  depends  not  only 
on  technical  and  engineering  considerations  but  also  on  economic  factors 
and  judgment.  This  will  be  elaborated  below. 

A.  LITERATURE  REVIEW 

An  exploration  program  generally  begins  with  a  survey  of  available 
literature  dealing  with  geological  and  engineering  geological  information 
pertaining  to  the  area  of  interest.  The  objective  is  not  only  to  save 
time  and  expense  but  also  to  utilize  the  information  to  plan  the  remain¬ 
ing  elements  of  the  exploration  program  more  efficiently  and  effectively. 
Of  particular  interest  is  information  relating  to  the  spatial  distribu¬ 
tions  of  rock  formations  along  the  tunnel  route,  the  physical  properties 
and  quality  of  the  rock  types  that  might  be  encountered  at  depth,  and 
expected  or  possible  ground-water  conditions  during  excavation.  If  under 
ground  construction  data  for  previous  projects  in  the  general  area  are 
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available,  they  would  most  likely  be  used  to  assess  the  structural 
characteristics  of  the  geological  strata,  and  possible  problem  areas. 

The  sum  total  of  such  sources  of  information  would  be  expected  to  aid 
the  geologist  in  nterpreting  conditions  with  respect  to  possible  problem 
areas,  tunnel  support  requirements,  and  ground-water  conditions.  Of 
course,  the  amount  of  useful  data  that  can  be  gathered  depends  on  the 
extent  of  previous  surface  and  underground  construction  in  the  general 
vicinity  of  the  proposed  tunnel. 

B .  SURFACE  EXPLORATION 

Surface  investigations  comprise  th";  second  step  in  the  sequence  of 
progressively  refined  studies  and  measurements.  With  the  exception  of 
built-up  urban  areas,  most  geographical  settings  are  suitable  for  sur¬ 
face  geological  exploration.  The  objective  of  this  phase  of  the  program 
is  to  survey  and  map  in  detail  the  exposed  rock  formations  in  a  wide  area 
covering  the  contemplated  excavation.  The  usefulness  of  this  procedure 
depends  on  the  degree  to  which  geological  formations  and  structures  of 
interest  are  exposed  at  the  surface.  In  some  cases,  aerial  and  surface 
reconnaissance  Is  aided  where  necessary  by  bulldozer  stripping  of  surface 

soil  to  expose  underlying  rock  formations.  This  is  usually  an  inexpen- 

4 

sive  way  to  implement  the  surface  work. 

The  results  of  this  phase  of  geological  exploration  are  recorded 
on  a  topographical  map  of  the  type  made  available  by  the  U.S.  Geological 
Survey.  The  map  scale  may  vary  between  1200:1  and  4800:1  and  the 
following  geological  features  are  usually  displayed: 

•  General  geology  (location  and  classification  of  generic  rock 
types) 

•  Strike  and  dip  of  si  rface  outcrops 

•  Location  of  fault  zones  and  veins 

•  Description  of  foliation  and  joints 

•  Fracture  densities  as  a  function  of  locacion 

•  Degree  of  weathering 
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When  the  information  is  displayed  in  this  form,  it  is  useful  to 
the  geologist  in  connection  with  two  main  tasks:  it  serves  as  the  basis 
for  making  a  preliminary  extrapolation  of  rock  conditions  to  tunnel  depth, 
and  it  aids  in  the  planning  of  subsequent  geological  and  geophysical 
measurements,  such  as  core  millings  and  seismic  surveys.  It  is  worth¬ 
while  to  emphasize  that  at  this,  point  the  geologist  cannot  predict  with 
a  high  degree  of  certainty  what  geological  factors  will  be  encountered 
at  depth.  The  information,  when  evaluated  and  interpreted  by  an  experi¬ 
enced  geologist  (and  we  must  emphasize  interpret)  serves  as  a  basis  for 
perhaps  semiquantitative  estimates  of  expected  conditions.  Conditions 
are  rarely  predicted  easily  since  much  of  the  earth's  outer  crust 
consists  of  highly  variable  geological  structures  and  conditions.  There¬ 
fore,  to  increase  the  information  usable  for  design  purposes,  additional 
measurements  and  tests  are  often  planned,  as  a  result  of  questions  raised 
by  the  results  of  the  surface  geological  mapping.  Occasionally,  field 
samples  are  collected  during  the  surface  survey  for  laboratory  analyses 
and  identification. 

C .  SUBSURFACE  INVESTIGATIONS 

As  discussed  in  the  previous  sections,  the  geologist's  chief  goal 
is  to  measure  and/or  predict  the  geological  conditions  at  the  depth  of 
interest.  It  is  usually  necessary  to  refine  the  data  obtained  from 
surface  mapping  by  detailed  investigations  of  areas  of  knov  'i  faults, 
areas  of  potential  geological  problems,  and  ground-water  .^nditions. 
Toward  this  end,  a  number  of  procedures  and  measurements  are  currently 
in  use: 

•  Core  drilling 

•  Pilot  bore 

•  Field  geophysical  measurements 
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1 .  Core  Drilling 

Information  concerning  subsurface  conditions  is  obtainable  by 
drilling  small  vertical  (or  nearly  vertical)  holes  down  to  tunnel  depth, 
with  the  concommitant  examination  and  testing  of  the  removed  material 
(core  samples).  Holes  drilled  in  rock  are  usually  about  3  in.  in  diameter, 
and  the  amount  of  core  recovered  is  a  function  of  the  quality  of  the  rock 
and  the  skill  of  the  drillers.  Data  on  rock  properties  and  geological 
conditions  as  a  function  of  depth  are  obtained  through  core  logging, 
water  testing,  and  laboratory  measurements  of  core  samples. 

2.  Core  Logging 

This  is  essentially  the  systematic  recording  of  observations  of 
rock  properties  for  successive  co^e  samples.  In  particular,  parameters 
such  as  rock  type,  fracture  and  joint  spacing  and  orientation,  density, 
and  hardness  are  of  immediate  interest.  Since  heavy  ground-water  condi¬ 
tions  are  particularly  influential  in  a  tunneling  operation,  data  on 
changes  in  the  water  level  encountered,  as  well  as  porosity  and  permeabi¬ 
lity  measurements  and  pumping  tests,  are  of  value. 

3 .  Pilot  Bore 

In  view  of  the  inherent  deficiencies  in  the  techniques  discussed 
above,  the  need  for  exploratory  drilling  ahead  of  a  working  face  has 
been  widely  recognized.  Current  geological  investigation  techniques 
do  not  provide  enough  information  for  design  purposes,  nor  are  they 
capable  of  being  applied  simultaneously  with  the  excavation  process.  As 
a  result,  it  would  be  desirable  to  obtain  in  situ  geological  information 
in  advance  of  a  working  face.  Either  a  pilot  bore  prior  to  main  tunnel 
excavation  or  a  pilot  bore  sufficiently  ahead  of  the  main  tunnel  advance 
may  supply  the  needed  information. 

The  Straight  Creek  Tunnel  Pilot  Bore  is  an  example  of  excavating 
a  complete  pilot  tunnel  in  the  immediate  vicinity  of  the  intended  tunnel. 

A  small  pilot  tunnel  was  excavated  and  subsequently  surveyed  by  geophysi¬ 
cal  techniques.  The  resulting  data  indicated  potential  trouble  spots, 
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and  some  correlation  of  rock  properties  with  construction  parameters  was 
made.  If  such  a  procedure  could  be  made  more  economical,  it  would  repre¬ 
sent  a  very  effective  geological  measurement  tool. 

The  Japanese  Seikan  Tunnel  across  the  Tsugaru  Strait  is  an  example 
of  excavating  a  pilot  tunnel  simultaneously  with  the  main  tunnel,  far 
enough  ahead  to  guide  the  main  tunnel  operations.  This  project,  in 
addition  to  the  pilot  tunnel,  relies  on  information  provided  by  the 
drilling  of  a  small  probe  hole  vm  to  1000  ft  ahead  of  the  excavation  to 
locate  potentially  bad  ground  conditions. 

4 .  Field  Geophysical  Measurements 

In  addition  to  the  techniques  mentioned  above,  surface  measurements 
are  occasionally  made  using  seismic  velocities  as  indicators  of  inu  ;ic 
rock  properties  and  changing  geological  conditions.  However,  its  effec¬ 
tiveness  is  frequently  limited  by  insensitivities  of  the  techniques  used 
and  by  an  inability  to  distinguish  clearly  between  certain  kinds  of  rock. 
Surface  measurements  of  DC  electrical  resistivity  have  also  been  used  to 

detect  changing  rock  and  ground-water  conditions,  but  with  modest  success. 

8  9 

However,  data  from  the  Straight  Creek  Tunnel  Pilot  Bore  *  indicate  that 
such  measurements  may  be  of  definite  value  in  conjunction  with  other  in 
situ  techniques. 

Some  use  has  een  made  of  borehole  photography  to  provide  direct 
observation  of  geological  conditions  inside  the  borehole. 

Geophysical  measurements  of  seismic  velocities  in  boreholes  are 
also  made.  Depending  on  the  physical  differences  among  the  rock  types 
encountered,  such  data  can  be  used  to  correlate  other  surface  geophysical 
measurements.  Unfortunately,  unless  the  boreholes  are  spaced  close 
enough  along  a  proposed  tunnel  route  to  reveal  all  geological  changes 
bearing  on  engineering  design  and  construction,  the  resulting  information 
is  only  generally  indicative  of  conditions  to  be  expected.  Core  logs 


1-12 


are  often  incapable  of  indicating  the  extent  of  geological  discontinui¬ 
ties.  As  a  result,  the  data  yield  only  an  incomplete  picture  of  geolo¬ 
gical  and  hydrological  conditions  at  tunnel  depth.  However,  in  mining 
operations  core-boring  techniques  may  provide  all  the  useful  information 
that  is  needed. ^ 

D.  LABORATORY  TESTS 

In  addition  to  the  logging  and  measurement  techniques  used  in 
conjunction  with  core  boring,  the  intact  core  samples  are  usually  tested 
in  the  laboratory.  The  object  of  such  tests  is  to  determine  those  rock 
propert  es  which  influence  the  excavation  method,  support  and  liner 
design,  ai.d  probable  ground-water  conditions.  In  particular,  such 
parameters  as  unconfined  compressive  strength,  hardness,  fracture  and 
joint  spacing,  and  degree  of  weathering  are  of  immediate  interest. 
Prospective  bidders  and/or  tunnel  machine  designers  might  perform  addi¬ 
tional  tests  of  their  own  choosing  to  enable  them  to  evaluate  the 
relative  advantage  of  drill  and  blast  versus  machine  tunneling,  but  such 

tests  are  performed  after  the  initial  geologic  investigation  is  made. 

7  11  12 

In  recent  years,  the  rock  quality  designation  (RQD)  ’  ’  has  come  into 

use  as  a  simply  measured  indicator  of  overall  rock  quality.  It  is 
defined  as  the  fraction  of  the  recovered  core  pieces  with  a  length  greater 
than  or  equal  to  4  in.  Thus,  it  is  an  approximate  measure  of  the  influ¬ 
ence  of  discontinuities  on  the  rock  mass  encountered.  This  will  be 
discussed  in  more  detail  in  a  subsequent  section,  but  it  suffices  to  say 
at  this  point  that  the  RQD  can  be  correlated  at  least  partially  with 
engineering  and  construction  aspects  of  tunneling.  At  the  present  time, 
laboratory  measurements  of  intrinsic  rock  properties  are  useful  only  in 
furnishing  guidelines  for  support  design  purposes.  The  measurements  are 
useful,  but  enough  uncertainty  remains  to  require  the  inclusion  of  large 
safety  factors  in  design  and  construction. 

E.  COST  CONSIDERATIONS 

In  general,  one  cannot  readily  provide  rules  which  determine  the 
optimum  allocation  of  resources  to  geological  exploration.  The  amount 
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can  vary  significantly  from  one  project  to  another  and  one  geology  to 
another.  However,  Table  1-1  summarizes  typical  costs  associated  with 
current  geological  surveying  and  measurement  procedures.  They  can  be 
used  to  estimate  the  total  cost  of  postulated  exploration  programs. 

It  should  be  mentioned  that  the  cost  per  foot  of  core  drilling 
depends  somewhat  on  the  diameter  and  ultimate  depth  of  the  hole.  Thus 
it  can  be  seen  that  drill  holes  of  500-foot  depth  might  typically  cost 
$5,000  or  more  each.  This  explains  why  their  locations  are  chosen  with 
care.  Finally,  it  should  be  mentioned  that  in  situ  engineering  tests 
for  design  purposes  are  usually  more  costly  and  time  consuming  than 
laboratory  tests.  This  includes,  in  particular,  radial  jacking  tests  to 
measure  the  deformation  of  tunnel  wall  rock  under  various  loading  condi¬ 
tions  . 


TABLE  1-1 

COST  ELEMENT  OF  GEOLOGICAL  SURVEYING 

1.  Core  drilling  into  bedrock  (3-in.  $5-$25/ft 

diameter)  with  boxing  of  cores 

2.  Water  pressure  tests 

3.  Mobilization/demobilization 
(per  drill  rig  and  crew) 

4.  Observation  well  (1  1/2  in. 
diameter) 

5.  Surface  mapping 

6.  Literature  research 

7.  Laboratory  tests 

8.  Seismic  tests  (surface) 


$75/test 

Variable  (several  hundred 
to  several  thousand 
dollars) 

$4/ft 

$100/ (day-geologist) 
$2100/man-mo .  (office) 
$25-$100/sample 
<  $l/lin .  ft 
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APPENDIX  II 

GEOLOGY  MODEL 

by 

F.  H.  Murphy 

SUMMARY 

' 

This  appendix  describes  ihe  concept,  code  structure  and  user  opera¬ 
tion  of  the  geology  model  which  is  a  tool  for  building  a  file  of  data 
which  represents  the  geological  conditions  found  within  a  given  three- 
dimensional  model  of  a  region  of  rock. 
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I. 


OVERVIEW 


The  geology  model  Is  a  part  of  the  excavation  simulation  model. 

One  of  the  requirements  established  for  the  simulation  model  by  the 
Bureau  of  Mines  was  that  it  provide  a  realistic  modeling  of  the  geologi¬ 
cal  conditions  encountered  during  the  process  of  tunneling;  specifically, 
it  was  established  that  the  rock  which  was  encountered  was  not  to  be 
modeled  as  a  homogeneous  medium.  It  was  also  established  that  the  ex¬ 
cavation  model  was  intended  to  be  used  as  a  research  tool  which  would 
aid  in  evaluating  the  relative  cost  and  performance  characteristics  of 
various  techniques  which  might  be  used  for  tunneling  through  hard  rock 
in  the  near  future.  This  latter  consideration  led  to  a  decision  to  de¬ 
sign  the  overall  model  in  such  a  way  that  the  portion  which  was  concerned 
with  modeling  geological  conditions  was  a  separate  entity. 

The  geology  model  is  intended  to  be  a  convenient  tool  for  building 
a  file  of  data  which  represents  the  geological  conditions  found  within 
a  given  three-dimensionol  region  of  rock.  The  representation  of  the 
geology  is  meant  to  be  exemplary.  By  this  it  is  meant  that  the  geology 
model  is  primarily  intended  for  use  in  building  files  which  represent 
hypothetical  geologies  which  might  be  of  interest  in  research.  Even  so, 
enough  flexibility  is  provided  so  that  reasonable  representation  of 
existing  geological  regions  could  be  rather  easily  constructed,  if  de¬ 
sired.  The  sizes  of  the  geological  regions  which  are  simulated,  as  well 
as  the  spacings  of  data  points  within  the  regions,  are  under  the  control 
of  the  user. 

This  appendix  is  intended  to  document  the  inputs,  the  methods  of 
operation,  and  the  outputs  of  the  geology  model.  In  doing  this,  it  is 
convenient  to  discuss  first  the  structure  of  the  geology  file  which  is 
generated;  this  gives  some  insight  as  to  why  the  model  is  as  it  is.  The 
structure  of  the  model  is  then  discussed  in  some  detail.  A  discussion 
of  the  specific  formats  and  uses  of  the  various  control  cards  follows. 
Finally,  a  detailed  description  of  the  subroutine  named  BENDER,  which  is 
used  to  simulate  the  tectonic  warping  of  layers  of  rock,  is  given. 
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II. 


OUTPUT  FILE  STRUCTURE 


The  geology  file  produced  by  the  geology  model  Is  a  simple  sequen¬ 
tial  (i.e.,  tape-like)  file.  This  file  consists  of  four  parts,  in  order: 

1.  Dimensional  Information 

2.  Rock  Layer  Information 

3.  Rock  Property  Information 

4.  Layer  Position  Information 

Each  of  these  four  parts  will  be  discussed  in  turn.  It  should  be  noted 
that  there  are  no  end-of-file  marks  between  the  parts  of  the  geology  file; 
the  only  end-of-file  mark  is  located  at  the  end  of  the  file. 

The  dimensional  information  specifies  the  size  of  the  region  to  be 
modeled  and  the  horizontal  spacing  between  data  points.  Implicitly,  it 
also  specifies  the  number  of  entries  which  will  be  found  in  the  fourth 
part  of  the  geology  file — the  layer  position  information.  In  order  to 
see  how  this  is  done,  imagine  for  a  moment  that  you  are  well  up  in  the 
air,  looking  down  at  a  rectangular  region  of  the  earth's  surface.  This 
region  is  described,  throughout  the  model,  by  means  of  the  following 
directional  notation  conventions: 


t 

Y,  NORTH,  J,  OR  N  DIRECTION 
xT EAST,  I ,  OR  M  DIRECTION 


The  compass-like  notation  is  used  for  input  convenience.  The  X  and  Y 
notation  is  used  when  it  is  convenient  to  refer  to  points  within  the 
region  by  means  of  floating-point  coordinates;  either  the  I  and  J  or  the 
M  and  N  notation  is  used  when  it  in  convenient  to  refer  to  selected  points 
within  the  region  by  means  of  integer  coordinates.  Vertical  levels  are 
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always  referred  to  by  floating-point  numbers;  the  variable  name  Z  is  most 
commonly  used  for  this  purpose.  The  positive  vertical  direction  is  up¬ 
ward. 


Within  thu  model,  this  region  is  divided  up  into  an  integral  number 
of  grid  squares.  There  are  NX  grid  lines  from  right  to  left  and  NY  grid 
lines  from  top  to  bottom.  NX  need  not  equal  NY.  These  grid  squares  need 
not,  in  truth,  be  square.  A  scale  factor  can  be  associated  with  each  of 
them.  Thus,  each  square  is  SCALEX  wide  and  SCALEY  high.  SCALEX  need  not 
equal  SCALEY.  The  geology  file  contains  geological  layer  position  infor¬ 
mation  for  each  point  at  which  the  grid  lines  cross. 

Going  back  for  a  moment,  then,  the  first  part  of  the  geology  file 
contains  four  entries  of  dimensional  information  which  specify  the  size 
of  the  region  to  be  modeled  and  the  horizontal  rpacing  of  the  data 
points.  In  order,  these  four  entries  contain: 


Position 

Contents 

Format 

1 

NX 

15 

2 

NY 

15 

3 

SCALEX 

1PE18.10 

4 

SCALEY 

1PE18.10 

At  the  present  time,  the  model  can  accommodate  regions  in  which  NX  and 

NY  are  each  less  than  or  equal  to  30.  If  these  limits  are  exceeded, 

the  array  SURF  in  the  geology  model's  main  program  should  be  redimensioned 

to  SUFF(NX  ,  NY ,  7)  where  NX  and  NY  are  the  maximum  desired  values  of 
mm  mm 

NX  and  NY;  no  other  changes  are  required.  There  values  of  SCALEX  and 
SCALEY  are  not  subject  to  any  practical  limitations. 

The  present  version  of  the  geology  model  allows  the  user  to  specify 

up  to  25  different  layers  of  rock,  which  may  correspond  to  between  2 

and  25  kinda  of  rock.  If  these  limits  are  exceeded,  the  array  INDEX 

should  be  redefined  as  INDEX(ILAYR  ),  where  ILAYR  is  the  maximum  number 

m  m 

of  layers  desired.  Depending  upon  the  computer  used,  it  may  be  necessary 
to  change  the  PROGRAM  card  of  the  geology  model  to  allow  for  the  files 


II-7 


TAPE1,  TAPE 2 . through  TAPE(ILAYRm) .  The  array  BUFF  should 

also  be  redefined  as  BUFF(ILAYR  +  2).  Additional  rock  types  are 

m 

accommodated  by  redefining  the  array  PROP  as  PR0P(6,  IROCK^)  ,  where  IROCK^ 
is  the  maximum  number  of  rock  types  desired. 

The  geology  model  allows  the  user  to  easily  generate  surfaces, 
which  are  interpreted  as  the  upper  boundaries  of  layers  of  specified 
kinds  of  rocks.  The  user  is  required  to  number  these  layers,  for  identi¬ 
fication  purposes,  as  he  generates  them.  There  is  no  requirement  that 

the  relative  vertical  positions  of  layers  be  in  any  way  related  to  the 

identification  numbers  assigned  to  them. 

The  second  part  of  the  geology  file  is  simply  a  copy  of  the  values 

which  the  user  placed  in  the  array  named  INDEX.  The  value  of  INDEX(ILAYR) 

is  the  number  of  the  rock  type  which  the  user  specified  as  being  found 
directly  beneath  the  surface  to  which  he  gave  the  identification  number 
ILAYR.  Let  us  suppose  that  INDEX(ILAYR)  =  IROCK.  Then,  PROP  (1  through 
6,  IROCK)  contains  the  six  parameters  which  the  user  specified  as  de¬ 
fining  the  kind  of  rock  which  he  gave  the  rock  identification  number  IROCK. 
The  third  part  of  the  geology  file  is  simply  a  copy  of  the  values  which 
the  user  placed  in  the  array  named  PROP. 

Explicitly,  the  second  part  of  the  geology  file  consists  of  rock 
layer  information  in  the  form: 


Position 

Contents 

Format 

5 

INDEX  (1) 

12  )  „  , 

1  I  Rock  types  for 

1 

1 

[  )  layers  1  through 

29 

INDEX  (25) 

12  )  25‘ 

and  the  thiru  part  of  the  geology  file  consists  of  rock  property  informa¬ 
tion  in  tne  form: 
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\ 


Position  Contents  Format 


30 

PROP 

31 

PROP 

32 

PROP 

33 

PROP 

34 

PROP 

35 

PROP 

36 

1 

PROP 

I 

179 

PROP 

(1,1) 

1PE18.10 

(2,1) 

1PE18.10 

(3,1) 

1PE18.10 

(4,1) 

1PE18.10 

(5,1) 

1PE18.10 

(6,1) 

1PE18.10 

(1,2) 

1PE18.10 

i 

t 

(6,25) 

( 

1PE18.10 

Parameters  for 
rock  type  1 


The  fourth  part  of  the  geology  file  consists  of  NX  times  NY  entries, 
in  sequence,  each  entry  being  of  the  following  form: 


Entry  Position 

Contents 

Format 

1 

I 

1PE18.10 

2 

J 

1PE18.10 

3 

Z1 

1PE18.10 

4 

1 

> 

1PE18.10 

1 

\ 

ILAYR  +  2 
m 

\ 

Z ILAYR 
m 

1 

1PE18.10 

Each  entry  is  for  a  single  point  at  which  the  grid  lines  cross;  the  coor¬ 
dinates  of  that  point  are  the  integers  (I,J).  The  Z L  for  L  ■  1  to  ILAYRm  are 
the  vertical  positions  of  the  layers  which  the  user  has  given  the  identi¬ 
fication  numbers  1  through  ILAYR  respectively;  Z  values  for  layers  which 

m  51 

he  has  not  specified  are  set  to  the  value  Z  ■  -10  .  In  interpreting  the 

entries  at  a  given  (I,J)  location,  it  is  understood  that,  in  case  of 
overlap,  an  arbitrary  rule  determines  vhich  layer  numbers  take  precedence. 


Z 


L 


For  example,  suppose  that  at  location  (I,J)  we  were  given  the  values 
for  L  *  1  through  25.  We  would  receive  them  in  the  order  given  above: 
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L 

1 

2 

3 

I 

25 


Z 


Our  first  step  might  be  to  sort  the  entries  into  increasing  order  by  Z, 
and  then  use  L  as  a  precedence  number: 


L 

1 

25 

2 

3 

I 

24 

This  might  correspond  to  the  condition: 


LAYER  1 _ 

I 


The  above  illustration  of  how  layer  precedence  relationships  can  be  used 
is  meant  to  be  illustrative  rather  than  definitive.  No  dcubt  the  reader 
can  imagine  other  geological  conditions  in  which  other  precedence 


/ 

y 
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relationships  would  be  useful;  e.g.,  perhaps  specific  layer  numbers  might 
always  be  interpreted  as  representing  the  surface  of  the  earth  and  the 
water  table. 
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III.  GEOLOGY  MODEL  STRUCTURE 


Ihere  are  two  major  phases  of  the  geology  model.  During  the  first 
phase,  the  user  is  aided  in  manipulating  surfaces  on  an  NX  by  NY  grid. 
These  working  surfaces  may  then  be  given  layer  number  and  rock  type  iden¬ 
tification  numbers,  and  be  stored  on  auxiliary  storage  (usually  disk 
storage)  one  surface  at  a  time.  The  user  is  allowed  to  have  up  to  sevi.  < 
working  surfaces  in  existence  at  any  one  time.  As  was  previously  stated, 
the  model  as  presently  implemented  will  accommodate  up  to  25  layer  sur¬ 
faces  . 


The  result  of  the  i_rst  phase  of  operation  is  a  collection  of 
individual  files,  each  corresponding  to  the  Z  values  of  a  single  layer 
surface;  each  such  file  of  Z  values  is  in  the  customary  FORTRAN  ordering 
by  I  and  J.  What  is  desired  is  of  course  a  single  file,  ordered  by  I 
and  J,  which  contains  the  Z  values  for  every  surface  at  each  value  of 
I  and  J.  This  phase,  which  begins  upon  the  receipt  of  a  MAKEFILE  card, 
is  essentially  a  reordering  phase.  During  this  phase,  the  values  of  NX, 
NY,  SCALEX  and  SCALEY,  as  well  as  the  contents  of  the  arrays  named  INDEX 
and  PROP,  are  written  out  onto  the  new  geology  file.  The  rest  of  the 
file  is  constructed  by  stepping  through  all  values  of  I  and  J  and,  for 
each  data  point  so  defined,  reading  the  corresponding  Z  value  from  each 
of  the  layer-surface  files,  consolidating  these  values  into  one  entry, 
and  writing  this  inf^nnation  onto  the  new  geology  file.  When  this  process 
is  completed,  the  operation  of  the  geology  model  is  terminated. 

<0 

Figure  II-l  illustrates  the  two-phase  nature  of  the  geology  model. 
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IV .  INPUT  DATA  CARDS 

Sixteen  different  kinds  of  input  data  cards  are  used  to  control  the 
operation  of  the  geology  model.  Each  kind  is  identified  by  a  label  which 
is  punched  into  columns  1  to  10  of  each  card  (left  justified).  The 
remaining  space  on  each  kind  of  card  is  divided  up  into  seven  equally 
sized  data  fields,  each  field  being  ten  columns  wide.  All  data  entered 
into  any  of  these  data  fields  must  be  numerical  and  must  include  a  deci¬ 
mal  point.  The  formats  of  the  sixteen  kinds  of  input  data  cards  are 
given  in  Table  II-l.  The  purpose  of  each  kind  of  cards  and  its  associated 
data  parameters  is  discussed  in  this  section. 

A.  GEOLOGY  CARD 

The  geology  card  must  be  the  first  card  of  the  ir.p’  t  data  deck. 

There  must  be  only  one  geology  card  per  input  data  deck.  Violation  of 
either  of  these  restrictions  will  cause  a  diagnostic  message  to  be  printed 
and  the  current  run  of  the  model  to  be  terminated.  The  meanings  of  the 
variables  NX,  SCALEX,  NY,  and  SCAIEY  are  as  given  in  Sec.  II  of  this 
append ix. 

B.  SURFACE  CARD 

A  SURFACE  card  provides  a  method  of  inputting  a  completely  arbitrary 
surface.  The  main  disadvantage  to  this  is  that  many  point-data  cards 
(blanks  in  columns  1  through  10)  may  be  required  if  NX  times  NY  is  large. 
Tn  specifying  an  arbitrary  surface,  the  SURFACE  card  must  come  firs1:. 
SURFNO  is  the  number  by  which  the  working  surface  which  is  to  be  created 
will  be  known;  SURFNO  can  be  any  integer  from  1  to  7,  inclusive  (but  re¬ 
member  that  decimal  point!).  The  other  data  fields  on  the  SURFACE  card 
are  ignored — unless  they  contain  non-numeric  data,  which  can  cause  a 
fatal  error  in  the  FORTRAN  input-output  routines. 

The  SURFACE  card  must  be  immediately  followed  by  enough  point-data 
cards  to  define  the  desired  points  on  the  surface.  Two  points  can  be 
defined  per  card;  the  problem  which  arises  when  it  is  necessary  to  define 
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an  odd  number  of  points  is  avoided  by  checking  the  value  I  times  J  before 
storing  the  value  SURF(I,J).  If  I  times  J  is  zero  (or  blank)  SURF(I,J) 
is  ignored.  The  number  of  point-data  cards  is  not  checked.  They  need  not 
be  in  any  order,  as  long  as  all  desired  cards  for  the  surface  to  be  defined 
are  together  and  immediately  follow  the  appropriate  SURFACE  card. 


C .  PLANE  CARD 

As  was  noted  above,  the  definition  of  large  numbers  of  surface 
points  can  require  large  numbers  of  point-data  cards  and,  therefore,  lajrge 
amounts  of  keypunching.  This  kind  of  effort  is  clearly  unjustifiable 
when  only  very  simple  surfaces  are  required.  Through  the  use  of  the 
PLANE  card,  one  can  establish  a  working  surface  with  working  surface 
identification  number  SULFNO,  all  of  whose  points  are  set  to  the  value 
DEPTH,  in  one  simple  operation. 

D.  RAISE  CARD 

Geologies  having  layers  whose  layer  surfaces  are  virtually  identical, 
except  for  a  vertical  separation  between  layers,  are  not  uncommon.  The 
RAISE  card  was  provided  to  ease  the  task  of  defining  such  a  geological 
region.  The  use  of  the  RAISE  card  simply  adds  the  constant  named  DISTANCE 
to  every  data  point  of  the  working  surface  having  the  surface  identifica¬ 
tion  number  SURFNC. 

E.  LOWER  CARL 

The  same  comments  made  in  conjunction  with  the  RAISE  card  are 
appropriate  here.  The  use  of  the  LOWER  card  simply  subtracts  the  constant 
named  DISTANCE  from  every  data  point  of  the  working  surface  having  the 
surface  identification  number  SURFNO. 

F.  SCALE  CARD 

The  use  of  the  SCALE  card  is  similar  in  nature  to  the  uses  of  the 
RAISE  and  LOWER  cards.  In  this  case,  each  data  point  of  the  working 


surface  named  SURFNO(A)  is  multiplied  by  the  scale  factor  named  FACTOR, 
the  result  being  stored  in  the  corresponding  location  of  the  working 
surface  named  SURFNO(B).  SURFNO(A)  may  equal  SURFNO(B) ,  if  desired. 

G.  SUM  CARD 

The  use  of  the  SUM  card  causes  the  Z  value  for  each  I,J  location 
of  working  surface  number  SURFNO(A)  to  be  added  to  the  Z  value  for  the 
corresponding  I,J  location  of  working  surface  number  SURFNO(B);  the 
resulting  value  is  placed  in  the  corresponding  I,J  location  of  working 
surface  number  SURFNO(C).  The  Z  valies  for  the  working  surfaces  numbered 
SURFNO(A)  and  SURFNO(B)  remain  unchanged  unless  one  or  the  other  or  both 
of  the  working  surfaces  have  the  same  number  as  working  surface  SURFNO(C). 
The  numbers  SURFNO(A),  SURFNO(B)  and  SURFNO(C)  may  be  equal  to  each 
other  in  any  combination,  if  desired. 

H.  DIFFER  CARD 

The  operation  of  the  DIFFER  card  is  identical  to  that  of  the  SUM 
card,  except  that  the  corresponding  I,J  data  points  of  working  surface 
number  SURFNO(B)  are  subtracted  from  those  of  working  surface  number 
SURFNO(A)  in  order  to  obtain  the  data  point  values  for  SURFNO(C).  In 
short,  surface  A  minus  surface  B  equals  surface  C. 

I.  TILT  CARD 

Up  until  this  point,  all  of  the  operations  performed  upon  working 
surfaces  have  been  vertical.  It  has  also  been  considered  desirable  to 
provide  some  simple  method  of  tilting  surfaces,  so  that  It  would  not  be 
necessary  to  resort  to  the  definition  of  surfaces  through  the  use  of 
SURFACE  cards  whenever  the  layer  structure  in  a  particular  geological 
region  happened  not  to  be  horizontal.  The  TILT  card  provides  a  simple 
method  of  tilting  arbitrary  surfaces. 

The  arbitrary  surface  which  is  to  be  tilted  is  that  working  surface 
having  the  surface  identification  number  SURFNO(A).  The  data  point  values 
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which  result  when  this  surface  is  tilted  DEGREE  degrees,  in  a  right- 
handed  fashion,  around  a  horizontal  vector  through  the  point  having  the 
coordinates  (PTX,  PTY ,  PYZ)  and  pointing  in  a  direction  AXIS  which  is 
measured  in  degrees,  in  a  compass-like  fashion  from  north  (or  equivalently, 
the  Y  axis),  are  placed  in  the  appropriate  locations  of  the  working  sur¬ 
face  having  the  surface  identification  number  SURFNO(B). 

This  all  sounds  very  complicated  at  first,  but  in  practice,  it  is 
easy.  The  formulas  used  are  well  known.  The  only  difficult  part  of  the 
operation  stems  from  the  fact  that  originally  our  working  surface  number 
SURFNO(A)  has  its  Z  values  recorded  at  integer  values  of  X  and  Y;  after 
the  tilting  operation  takes  place,  this  is  no  longer  true,  in  general. 

Yet  this  has  to  be  true  before  we  can  store  the  Z  values  for  working 
surface  number  SURFNO(B) .  It  is  therefore  necessary  to  use  a  surface¬ 
fitting  subroutine  SRFIT  in  order  to  determine  the  second-degree  equation 
which  best  fits  that  set  of  data  points  which  is  closest  to  each  integer 
valued  I,J  pair  for  which  we  want  a  Z  value  for  working  surface  number 
SURFNO(B) .  We  then  use  the  equation  to  interpolate  in  order  to  find  the 
desired  Z  value.  This  must  be  done  for  every  I,J  pair  where  1  <  I  <  NX. 

1  £  J  £  NY. 

Normally,  the  six  closest  data  points  should  suffice  for  such  a  fit. 
It  has  been  found  desirable  to  use  the  closest  eight  in  most  case?.  This 
results  in  a  small  amount  of  "smoothing"  which  is  helpful  at  boundaries 
or  at  parts  of  the  surface  which  have  sharp  bends.  If  it  has  trouble 
in  fitting  the  surface  with  the  eight  closest  points,  the  program  will 
next  try  ten,  then  twelve  points.  If  the  trouble  persists,  diagnostic 
information  is  provided. 


See,  for  example,  pp.  A-255  of  the  Handbook  of  Chemistry  and  Physics. 
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There  is  no  restriction  as  to  how  surfaces  can  be  tilted.  They  can 
be  tilted  in  a  positive  or  negative  direction,  in  small  amounts  or  in 
barrel  rolls.  The  only  real  constraint  is  that  the  resulting  surface  mufit 
be  singly-defined  at  each  integral  value  of  I  and  J  where  1  £  I  <  NX, 

1  <  J  <_  OT;  otherwise,  trouble  will  be  encountered  with  SRFIT,  as  noted 
above. 


J.  relax  card 

We  have  discussed  the  use  of  completely  arbitrary  surfaces,  speci¬ 
fied  through  the  use  of  the  SURFACE  card,  and  the  use  of  planes  specified 
through  the  use  of  the  PLANE  card.  The  RELAX  card  provides  a  means  of 
achieving  a  middle  ground  between  the  relative  advantages  of  realism  and 
simplicity  achieved  through  these  two  approai  ;es. 

Many  geological  surfaces  may  be  adequately  represented  by  "minimum 
energy"  surfaces.  That  is,  given  the  boundary  points  through  which  the 
su  'c.  would  have  to  pass  at  the  edges  of  the  geological  region  which 
we  re  modeling,  this  type  of  surface  is  the  smoothest  which  could  be  con¬ 
structed  which  would  still  pass  through  the  boundary  points.  An  infinitely 
flexible  membrane,  such  as  a  soap  bubble,  could  be  expected  to  provide  the 
same  kind  of  surface. 


Mathematically,  this  kind  of  surface  is  called  a  harmonic  surface; 
it  satisfies  LaPlace's  equation  in  two  dimensions: 


92F  j^F 
9x2  9y2 


=  0 


Given  the  boundary  points  for  such  a  surface,  there  is  a  straightforward 
algorithm  known  as  the  relaxation  algorithm  which  can  be  used  in  order 
to  find  the  interior  points  which  satisfy  the  above  equation.  This 
algorithm  is  iterative;  its  values  converge  to  those  of  the  desired 
surface.  In  general,  this  convergence  is  quite  rapid  at  first,  then  more 
and  more  gradual  as  the  computation  continues. 

11-19 


"mm***- 


The  RELAX  card  allows  us  to  use  this  algorithr.  A  typical  approach 
would  be  to  first  use  the  SURIACE  card  method  to  specify  or ly  ill  of  the 
boundary  points  for  working  surface  number  SURFNO.  The  RELAX  ' ° r d  would 
then  be  used  to  find  all  of  the  interior  points  for  this  surface;  these 
would  have  the  property  of  representing  the  smoothest  possible  surface 
through  the  boundary  points  given. 

The  parameter  TOLER  allows  the  user  to  control  the  accuracy  with 
which  the  surface  is  determined.  The  relaxation  process  will  stop  when, 
during  one  iteration  of  the  algorithm,  the  value  of  no  data  point  on 
the  working  surface  changes  by  no  more  than  TOLER.  Note  that  TOLER 
measures  the  amount  of  change,  not  the  amount  of  error  as  compared  to  the 
final,  exact  surface.  Given  reasonable  surfaces,  TOLER  should  probably 
be  at  least  an  order  of  magnitude  smaller  than  the  maximum  error  desired; 
when  NX  and  NY  are  large,  two  orders  of  magnitude  might  be  appropriate. 

If  the  user  specifies  that  TOLER  =  0  or  leaves  the  specification  of  TOLER 
blank,  the  following  automatic  definition  of  TOLER  takes  place,  in  order 
to  conserve  computer  time: 

_  SCALEX  +  SCALEY 

mER - 200 - 

Note  that  the  RELAX  card  can  be  used  in  conjunction  with  any 
working  surface  whose  boundary  points  are  defined.  The  user  is  not 
restricted  to  using  it  in  conjunction  with  the  SURFACE  card  as  outlined 
above. 


K.  BEND  CARD 

The  subroutine  (BENDER)  used  to  implement  the  operation  of  the  BEND 
card  is  the  most  complex  subroutine  of  the  geology  model.  It  is  discussed 
in  detail  in  Sec.  V,  but  an  overview  of  its  operation  is  provided  here. 
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When  something  is  bent,  there  i3  a  median  surface  which  is  neither 
stretched  nor  compressed — only  displaced.  For  example,  consider  a  simple 
beam: 


.  OLD  MEDIAN  PLANE, 
/l/  BEFORE  BENDING 


NEW  MEDIAN  PLANE, 
AFTER  BENDING 


As  we  can  see  above,  the  stretched  and  compressed  sides  of  the  beam  are 
not  related  to  each  other  by  a  simple  vertical  distance  relationship. 
While  this  is  a  two-dimensional  example,  the  same  kind  of  thing  happens 
in  three  dimensions,  except  that  there  is  a  median  surface  which  need  not 
necessarily  be  a  plane  or  cyliner. 

The  question  which  the  bending  subroutine  attempts  to  answer  is, 
"Given  two  working  surfaces  which  represent  the  locations  of  the  old  and 
new  median  surfaces,  prior  to  and  after  the  bending  of  the  rock,  what  is 
the  new  surface  which  resulted  from  the  deformation  of  the  old  surface 
during  this  bending  process?" 

The  exact  analytical  solution  of  this  question  would  involve  great 
data  processing  expense.  We  have  provided  an  approximate  solution,  which 
seems  to  give  reasonable  answers,  but  even  then  involves  significant 
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expense  when  NX  and  NY  are  large,  since  the  processing  time  is  related 
2 

to  (NX  times  NY)  .  Much  of  this  expense  is  unnecessary  since,  when  NX 

and  NY  are  large,  it  is  not  usual  for  the  displacement  of  the  median 

surface  at  one  I,J  location  on  the  grid  to  have  much  effect  on  surface 

deformations  for  I,J  locations  which  are  many  grid  points  distant.  The 

TNFLUN  parameter  allows  us  to  take  advantage  of  that  fact.  Through  its 

use,  the  consideration  of  the  effect  on  deformation  by  causes  more  than 

1NFLUN  grid  spacings  distant  can  be  eliminated.  This  makes  the  running 

2 

time  proportional  to  (NX  times  NY)  times  (1+2  times  1NFLUN)  — a  sig¬ 
nificant  saving  when  NX  and  NY  are  large.  If  iNFLLN  is  not  specified, 
it  is  automatically  set  equal  to  three. 

L.  GRAPH  CARD 

From  time  to  time,  one  may  become  curious  as  to  the  current  Z  values 
of  a  given  working  surface — especially  after  using  a  BEND  card.  The  GPA’H 
card  allows  the  user  to  print  out  X-Y  plots  of  the  surfaces,  with  X  and  Y 
coordinates  labeled,  and  the  appropriate  Z  values  displayed.  Plots  that 
are  too  wide  are  automatically  printed  out  in  vertical  strips  which,  when 
laid  side  by  side,  depict  the  entire  surface.  There  is  therefore  no 
problem  in  producing  plots,  regardless  of  how  large  NX  and  NY  become. 

Plots  for  several  working  surfaces  can  be  produced  with  the  same  GRAPH 
card  by  placing  their  working  surface  identification  numbers  in  sequential 
data  fields  on  the  card',  beginning  in  the  leftmost  data  field.  The  first 
blank  data  field  encountered  will  terminate  the  process  of  producing  plots. 
The  process  of  producing  plots  does  not  alter  any  surface  in  any  way. 

M.  LAYER  CARD 

The  LAYER  card  is  used  in  changing  the  status  of  a  working  surface 
to  that  of  a  geological  surface.  In  doing  this,  the  working  surface  is 
left  unchanged;  it  is  merely  copied  onto  a  disk  file,  and  given  a  new 
number — a  layer  number  as  opposed  to  a  working  surface  number.  In 
addition,  an  entry  is  made  in  the  array  INDEX.  This  entry  specifies  the 
kind  of  rock  properties  which  the  user  wants  to  have  associated  with  this 
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geological  layer.  In  effect,  in  using  the  LAYER  card,  the  user  is 
saying,  "Use  working  surface  number  SURFNO,  associated  with  rock  type 
ROCKNO,  as  geological  layer  LAYERNO." 

N.  PROPERTY 

The  PROPERTY  card  allows  the  user  to  specify  the  properties  which 
are  to  be  associated  with  rock  type  ROCKNO.  The  meanings  of  these  param¬ 
eters  are  not  specified  at  the  present  time  and  are  not  relevant  to  this 
discussion. 

O.  MAKEFILE 

The  MAKEFILE  card  is  the  card  which  causes  the  consolidation  of 
geological  information  into  the  geology  file.  In  making  the  geology 
file,  the  geology  model  will  assume  that  the  user  has  specified  properties 
for  all  types  of  rock  having  the  numbers  1  through  MAXROCK,  inclusive. 
Likewise,  it  will  assume  that  geological  layer  information  is  stored  for 
all  layers  having  layer  numbers  1  through  MAXLAYER,  inclusive. 

P.  SUMMARY 

Except  for  the  first  ten  columns  of  any  input  data  card,  which 
must  be  alpha! etic  and  left  justified,  all  data  entered  on  input  data 
cards  must  bf  numeric  and  must  contain  decimal  points. 

The  reader  is  cautioned  to  be  thorough  and  consistent  in  redefining 
arrays  within  the  geology  model.  For  example,  if  the  array  SURF  were 
redefined  as  SURF  (27,  53,  7)  in  the  main  program  GEOMOD,  then  the  arrays 
named  A,  B,  C,  D,  BX,  and  BY  in  the  subroutine  BENDER  would  have  to  be 
dimensioned  as  (27,  53),  the  array  POINT  in  BENDER  would  have  to  be 
redefined  as  P0INT(3,  1431),  and  the  array  GRID  in  the  subroutine  GRAPH 
would  have  to  be  redefined  as  GRID(27,  53).  Failure  to  redefine  these 
arrays  outside  of  the  main  program  GEOMOD  would  lead  to  incorrect 
indexing  of  these  arrays  and  would  cause  erroneous  results. 


V. 


SUBROUTINE  BENDER 


The  motivation  in  developing  the  BENDER  program  (Fig.  IT-2)  was  to 
create  a  subroutine  which  would  geometrically  alter  geological  layers  in 
a  reasonable  and  consistent  way,  and  with  a  reasonable  expenditure  of 
computer  time.  The  approach  taken  was  geometrical  rather  than  physical, 
on  the  basis  of  simplicity,  available  geological  knowledge,  and  program¬ 
ming  priorities. 

When  one  begins  to  think  about  geometrical  approaches  to  the  warp¬ 
ing  of  geological  surfaces,  some  concepts  seem  to  quickly  come  to  mind  and 
persist : 

1.  Any  reasonable  way  of  defining  the  three-dimensional  deforma¬ 
tion  of  a  layered  geological  region  seems  to  involve  a  descrip¬ 
tion  of  what  happened  to  the  surface  which,  after  deformation 
is  the  "median"  surface  in  the  sense  that  it  was  neither 
stretched  nor  compressed,  but  merely  displaced. 

2.  It  is  true  that,  in  a  given  pattern  of  deformation,  there 
might  be  a  large  volume  which  might  be  neither  stretched  nor 
compressed  and  therefore,  in  the  above  sense,  there  can  be  no 
reasonable  definition  of  any  single  "median"  surface  on  the 
basis  of  its  being  neither  stretched  or  compressed.  While 
this  is  true,  it  is  also  true  that,  in  this  region,  any  surface 
would  form  an  acceptable  "median"  surface,  in  the  above  sense. 

3.  In  fact,  when  one  begins  to  think  about  the  time  spans  involved, 
the  stresses  and  strains  involved  are  probably  not  that  well 
defined  or  understood;  they  may  be  dissipated  by  slippage, 
plastic  flow,  changes  in  the  chemical  makeup  of  the  rock,  etc. 

It  is  probably  more  realistic  to  think  about  deformations 
rather  than  stresses  and  strains,  although  the  concept  of  a 
median  surface  is  still  an  aid  to  understanding. 
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FOR  EACH  POINT 
ON  THE  OLD 
SURFACE  TO  BE 
DISPLACED 


Figure  II-2. 


COMPUTE  NORMAL 
VECTORS  FOR  NEW  I 
MEDIAN  SURFACE 
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EXTEND  ALL  SUCH 
VECTORS  TO  OLD 
MEDIAN  SURFACE, 
FIND  DISPLACEMENTS 

DISPLACE  POINT  ON 
OLD  SURFACE  BY  THE 
AVERAGE  OF  THE  ABOVE 
DISPLACEMENTS 


INTERPOLATE  TO  FIND 
VALUES  OF  NEW  SURFACE 
AT  GRID  CROSSING 
POINTS 


NOTE  THAT,  IN  GENERAL, 
THIS  INVOLVES  SEARCHING 
EVERY  GRID  SQUARE  ON  THE 
NEW  MEDIAN  SURFACE 


Flow  Chart  of  Logic  of  BENDER  Subroutine 
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It  is  immediately  obvious,  after  glancing  at  Fig.  IT-2,  that  the  basic 
logic  of  the  BENDER  is  exceedingly  simple;  it  is  also  obvious,  after  look¬ 
ing  at  the  350  lines  of  FORTRAN  in  its  listing,  that  its  implementation 
may  be  straightforward,  but  it  is  not  simple.  For  example,  computing  the 
normal  vectors  for  the  new  median  surface  involves  computing  the  partial 
derivatives  in  the  X  and  Y  directions  at  each  grid  line  crossing  point 
and  storing  them  in  the  BX  and  BY  arrays,  respectively.  These  partial 
derivatives  are  then  converted  to  the  direction  cosines  of  the  desired 
normal  vectors,  the  results  of  this  computation  again  being  placed  in  the. 

BX  and  BY  arrays.  About  25  lines  of  FORTRAN  code  are  involved. 

likewise,  finding  all  of  these  normal  vectors  which  pass  through 
each  grid  lj.ne  crossing  point  on  the  old  surface  is  no  simple  task. 

First  of  all,  this  implies  that  the  direction  cosines  for  each  grid 
line  crossing  point  on  the  new  median  surface  have  to  be  examined  in 
order  to  determine  whether  a  normal  vector  from  that  point  on  the  new 
median  surface  could  go  through  each  of  the  grid  line  crossing  points 
on  the  old  surface  which  is  to  be  distorted.  The  mechanics  of  this 
operation  infer  that  this  processing  step  would  have  to  be  performed 
(NX  times  NY)  times  (NX  times  NY)  times.  This  problem,  whose  solution 
was  discussed  in  the  preceding  section,  is  compounded  by  the  fact  that 
the  normal  vectors  from  the  new  median  surface  will  generally  not  ori¬ 
ginate  at  grid  line  crossing  points,  if  they  pass  through  grid  line 
crossing  points  on  the  old  surface  which  is  to  be  distorted;  some  method 
of  interpolation  is  therefore  needed.  The  problem  is  further  compounded 
by  the  fact  that  an  iterative  procedure  is  used  to  find  the  origination 
point  of  the  normal  vectors;  there  seems  to  be  no  better  alternative  to 
this  procedure. 

Although  the  iterative  procedure  could  not  be  avoided,  a  quick, 
reasonable  method  of  interpolation  was  found.  If  a  function  has  a  stated 
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value  at  the  four  corners  of  a  square  grid,  and  if  its  value  at  some 
interior  point  is  desired: 


F  (I ,J  +  1 )  F  (I  +  1,  J  +1) 

•  •  i 


♦ 

DX 

j . 

DY 

(h  0) 

‘  )F  (J  +  1,  J) 

then  if  F(I  +  DX,  J  +  DY)  is  computed  as  follows: 

F(I  +  DX,  J  +  DY)  (1  -  DX)  (1  -  DY)  F(I,J) 

+  DX  (1  -  DY)  F(I  +  1,  J) 

+  DY  (1  -  DX)  F(I  j,  J  +  1) 

+  DX  (DY)  F(I  +  1,  J  +  1) 

The  value  of  F(I  +  DX,  J  +  DY)  obtained  is  the  same  as  if  F(X,Y)  were  a 
harmonic  function  \idiose  boundary  values  varied  linearly  along  the  boundaries 
between  the  four  points  in  question.  This  Interpolation  scheme  is  used 
several  times  in  the  BENDER  subroutine. 

Having  found  a  normal  vector  (suitably  interpolated)  from  the  new 
median  surface  which  passes  through  a  given  grid  crossing  point  on  the  old 
surface  to  be  displaced,  the  next  task  is  to  extend  the  vector — in  one 
direction  or  the  other — until  it  intersects  the  old  median  surface,  so 
that  the  displacement  of  the  median  surface  can  be  calculated;  this 
displacement  will  contribute  to  the  displacement  of  point  on  the  old  sur¬ 
face  to  be  displaced  into  the  new,  displaced  surface.  Again,  it  seems 
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that  the  only  way  to  do  this  is  by  an  iterative  procedure.  The  method 
used  is  similar  to  that  used  with  the  normal  vectors,  above.  Basically, 
one  makes  a  guess  as  to  where  the  desired  vector  might  originate  r r 
terminate,  as  the  case  may  be.  One  then  determines  what  correction  is 
necessary  to  make  the  vector  collinear  (not  necessarily  in  the  same  di¬ 
rection)  with  a  previously  determined  vector.  This  procedure  is  repeated 
unti.  either  the  computation  drives  the  guesses  out  of  bounds  or  the 
process  converges  to  a  solution,  within  a  reasonable  tolerance. 


Finally  one  encounters  the  same  problems  with  surface  fitting  that 
were  discussed  in  conjunction  with  the  TILT  card  (previous  section) .  In 
fact,  the  same  code  is  used,  since  the  TILT  routine  is  part  of  the  BENDER 
subroutine.  The  same  comments  apply. 
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APPENDIX  III 

PROGRAMS  TUNNEL  AND  GENTNL 
by 

P.  K.  Pariah 


SUMMARY 

The  two  programs,  TUNNEL  and  GENTNL,  are  alternative  means  of 
creating  the  geology  file,  TUNNEL,  required  by  the  excavation  model. 
Program  TUNNEL  uses  as  Input  the  GEOLOGY  file  generated  by  the  geology 
model;  program  GENTNL  allows  direct  creation  of  the  TUNNEL  file  using 
only  card  input. 
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I. 


PROGRAM  TUNNEL 


A.  PURPOSE 

Program  TUNNEL  creates,  from  the  GEOLOGY  file  written  by  the  geology 
model,  a  TUNNEL  file  for  input  to  the  excavation  model.  The  TUNNEL  file 
describes  the  properties  of  the  rock  encountered  in  a  specific  tunnel 
through  the  three-dimensional  area  defined  by  the  geology  model.  Execution 
and  information  flow  is  shown  schematically  in  Fig.  III-l. 

B.  GENERAL  TECHNIQUE 

The  geology  information  is  read  from  the  GEOLOGY  file  and  stored 
internally.  The  user,  meanwhile,  inputs  (X,Y,Z)  coordinates  of  the  end 
points  of  any  number  of  straight-line  segments  which  describe  the  tunnel 
midline  through  the  given  geological  area.  The  program  advances  along 
the  midline  of  this  tunnel  at  intervals  of  DELTA  feet  (see  "OPTION"  card) , 
determining  what  geological  layer  contains  each  point.  Whenever  a  new 
layer  is  entered  (or  the  end  of  a  segment  is  reached) ,  a  record  is  written 
for  the  TUNNEL  file. 

C .  INPUT 

1.  The  GEOLOGY  file,  generated  by  the  geology  model,  containing 
three-dimensional  layer  and  rock  property  information 

2.  User  parameter  cards 

There  are  four  types  of  input  cards  (see  Table  III-l)  :  OPTION,  START, 
NEWLEG,  and  END.  Each  card  is  considered  to  have  up  to  6  fields  of  10 
columns  each.  The  first  field  contains  the  alphabetic  keyword,  beginning 
in  column  1.  Values  entered  in  succeeding  fields  must  contain  decimal 
points,  but  may  appear  anywhere  in  the  assigned  10  columns.  A  descrip¬ 
tion  of  each  card  type  follows. 


Preceding  page  blank 
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OPTION  Input  Card 


This  caid  is  used  to  override  default  values  for  certain  program 
parameters.  If  default  values  are  acceptable,  this  card  is  not  required; 
if  present ,  however,  it  must  be  entered  first.  For  each  parameter  except 
XORIG  and  YORIG  (for  which  zero  may  be  the  desired  value) ,  a  blank  or 
zero  entry  will  cause  the  default  to  be  in  effect.  None  of  these  para¬ 
meters  is  written  to  the  TUNNEL  file. 


Field 

Description 

Default 

Comments 

DIAM 

Tunnel  diameter,  in  feet 

10  ft 

Currently  not 
by  the  TUNNEL 

used 

program 

XORIG 

X  location  (feet)  coin¬ 
cident  with  1=1  in  geology 
model  grid.  This  is  the 
reference  point  used  for 

X  entries  on  succeeding 
cards. 

1  ft 

If  OPTION  card 
present,  this 
must  be  filled 

is 

field 

in. 

If  OPTION  card  is 
present,  this  field 
must  be  filled  in. 


UNIT  Number  of  feet  represented  1  ft 

by  each  SCALEX,  SCALEY 
unit  in  geology  model  grid. 

DELTA  The  number  of  feet  to  be  20  ft 

used  by  the  program  be¬ 
tween  test  points  along 
the  tunnel  midline. 


A  smaller  number  here 
yields  greater  accuracy 
and  longer  processing 
time . 


YORIG  Y  location  (feet)  coin-  1  ft 

cident  with  J=1  in  geology 
model  grid.  This  is  the 
reference  point  used  for 
Y  entries  on  succeeding 
cards. 
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START  In-jut  Card 


The  X,Y,Z  entries  define  the  start  of  the  tunnel  midline  through 
the  area  described  in  the  geology  model.  The  X  and  Y  coordinates  refer 
to  the  I,J  axes  of  the  geology  model  grid  after  application  of  XORIG, 
YORIG,  UNIT,  SCALEX,  and  SCALEY.  The  Z  coordinate  corresponds  directly 
to  those  of  the  geology  model,  without  transformation. 

Hence,  the  X  entered  here  will  be  transformed  to  the  position  X^. 
on  the  geology  model  grid  by : 

v  -  i  +  (X  -  XORIG) 

I  SCALEX  X  UNIT 

and  similarly  for  Y  . 


NEWLEG  Input  Card 

If  the  tunnel  is  one  straight-line  segment,  this  card  is  not  used. 

If  the  tunnel  is  composed  of  N  >1  segments,  however,  there  will  be 

s 

N  -  1  "NEWLEG"  cards  entered  sequentially,  each  one  containing  the  coor- 
s 

dinates  of  the  start  of  each  new  segment  (except  for  the  first  segment, 
the  coordinates  of  which  are  entered  on  the  START  card).  There  is  no 
practical  upper  limit  for  N  .  X,  Y,  Z  are  interpreted  as  for  the  START 
card. 


END  Input  Card 

The  last  card  entered  must  be  an  END  card.  It  Contains  the  position 
of  the  end  of  the  tunnel  midline.  X,  Y,  Z  are  interpreted  as  for  the 
START  card. 
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D. 


OUTPUT 


1.  A  printed  report,  showing  the  OPTIONS  in  effect,  and  a  copy 
of  the  information  written  to  the  TUNNEL  file. 

2.  The  TUNNEL  file,  which  will  be  input  to  the  excavation  model. 
Each  logical  record  on  the  file  contains  the  following  fields: 


a. 


b. 


c. 


d. 


e. 


f. 


g- 


h. 


POSITION:  The  distance,  in  feet,  from  the  beginning 
of  the  tunnel  (X  =  0)  at  which  the  following  properties 
cease  to  apply.  That  is,  the  properties  are  applicable 
through  the  interval  from  the  POSITION  given  on  the 
preceding  record  (or  from  X  =  0  for  the  first  record) 
up  to,  but  not  including,  this  POSITION. 


PROPERTY  1:  Unconfined  compressive  strength,  psi 
PROPERTY  2:  Abrasiveness 

PROPERTY  3:  RQD,  rock  quality  designation 

PROPERTY  A:  In  situ  density,  lb/ft3 

PROPERTY  5:  Ambient  temperature,  °F 

PROPERTY  6:  Water  inflow  rate,  gal/min 

IFLAG:  Not  used  at  present.  May  be  utilized  later  to 
indicate  mixed  geology  situations. 


The  FORMAT  statement  used  to  write  each  record  is  "FORMAT  (7 (1PE18. 10) , 
12)."  End-of-file  is  indicated  by  a  dummy  record  containing  a  POSITION  <  0. 


For  the  logic  of  the  TUNNEL  program,  as  well  as  for  the  geology 
model,  the  entity  assigned  to  any  PROPERTY  is  completely  arbitrary.  The 
definitions  sfyown  here  are  those  currently  expected  by  the  excavation 
model. 
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E.  PROGRAM  LOGIC 

1.  Main  Program 

Program  TUNNEL  reads  the  GEOLOGY  file,  processes  the  user  input 
cards,  and  creates  the  TUNNEL  file.  The  program  technique  is  described 
in  Sec.  III-B,  "General  Technique."  A  flow  chart  is  shown  in  Fig.  III-2. 

2.  Subroutine  GETLYR 

This  subroutine  is  used  to  determine  which  geological  layer  (LL) 
contains  the  point  (XX,YY,ZZ). 

Layer  information  is  given  in  the  GEOLOGY  file  only  at  the  integral 
(I,J)  grid  points,  hence  interpolation  may  be  required  when  seeking  layer 
information  at  (XX, YY).  Throughout  the  following  discussion,  Z.  .  = 

(If Jf 

vertical  position  in  feet  of  the  upper  boundary  of  layer  L  at  grid  point 

(I.J). 


First,  (XX, YY)  is  translated  to  the  geology  model's  (I,J)  grid  by: 


XCOOR 


l  +  (XX  -  XORIG) 
SCALEX  X  UNIT 


YCOOR 


1  +  (YY  -  YORIG) 
SCALEY  X  UNIT 


The  integers  bounding  (XCOOR,  YCOOR),  then,  are  given  by: 


ILOW  <  XCOOR  <  IHI 


JLOW  <  YCOOR  <  JHI 


The  four  grid  points  surrounding  (XCOOR,  YCOOR),  therefore,  are  (ILOW, 
JLOW),  (ILOW,  JHI),  (IHI,  JLOW),  and  (IHI,  JHI). 
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If  (XCOOR,  YCOOR)  falls  within  th^  (I,J)  grid  (i.e.,  if  1  £  ILOW  £ 
NX  -  1  and  1  £  JLOW  £  NY'  -  1)  ,  the  processing  is  as  follows 


The  layer  information  for  the  four  surrounding  grid  points  is 
examined.  If  ZZ  is  contained  in  the  same  layer  at  each  point, 
that  layer  number  is  stored  in  LL,  and  the  subroutine  returns. 

Otherwise,  interpolation  is  required.  To  do  this,  the  upper 
boundary  of  layer  L  in  this  grid  square  is  assumed  to  coin¬ 
cide  with  the  plane  defined  by  the  three  points: 


ILOW.  JLOW,  Z(IL0W>  L) 

m,  JLOW,  z  JL0H> 


(XCOOR,  JHI,  ZC) ,  where  ZC  is  calculated  by  finding 
the  equation  of  the  line  (2-point  form)  in  the  (X,Z) 

plane  connecting  the  points  (ILOW,  JHI,  Z/TT„„  TIIT 

(\\  (ILOW)  JHI) 

IHI,  JHI,  jHI  L)  ,  substituting  XCOOR 

and  solving  for  ZC. 


3.  The  subroutine,  then,  cycles  through  for  each  layer  L  defined 

in  the  geology  file,  derives  the  equation  of  the  plane  (3- 

point  form)  defined  by  the  above  three  points,  substitutes 

XCOOR  and  YCOOR  in  this  equation,  and  solves  for  Z.  This 

value  Z  is  stored  in  ZHOLD(L),  and  represents  Z, 

H  (XCOOR,  YCOOR,  L) 

A.  When  ZHOLD(L)  has  been  calculated  for  all  L,  the  routine  finds 
the  lowest  ZHOLD(L)  such  that  ZHOLD(L)  >  ZZ.  This  L  is  stored 
in  LL  as  the  layer  containing  (XX,YY,ZZ). 


Special  cases  exist  if  (XX, YY)  falls  outside  the  geology  model  grid. 
Here,  each  boundary  grid  line  is  assumed  to  define  the  area  beyond  it; 
e.g.,  the  layer  information  for  1=  NX  is  taken  to  be  true  for  all  I  >  NX. 
Hence,  if  the  given  point  (XX,YY,ZZ)  is  N,S,E,  or  W  of  the  grid,  only 
two  (I,J)  grid  points  need  be  examined,  and  interpolation,  when  necessary 
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is  done  in  two  dimensions.  For  a  point  NE,  NW,  SE,  or  SW  of  grid,  only 
one  (I,J)  gridpoint  must  be  examined,  and  no  interpolation  is  required. 

3.  Subroutine  NEWPNT 

Given  the  end  points  of  a  straight-line  segment.,  (X1,Y1,Z1)  and 
(X2,Y2,Z2),  subroutine  NEWPNT  determines  the  coordinates  (XM,YM,2M)  of 
the  point  on  the  line  segment  which  is  DL  ft  from  (X1,Y1,Z1).  It  is  used 
by  program  TUNNEL  to  retrieve  each  successive  point  along  the  tunnel  mid¬ 
line,  at  intervals  of  DELTA  feet,  which  is  to  be  tested  for  layer  informa¬ 
tion. 


In  the  normal  case,  XI  ^  X2,  Y1  ^  Y2,  and  Z1  j  Z2.  The  derivation 
of  the  calculations  performed  when  this  is  the  situation  is  as  follows: 


a.  The  formula  which  is  to  be  solved  for  (XM,YM,ZM)  is  that 
for  the  distance,  DL,  between  the  points  (X1,Y1,Z1)  and 
(XM.YM.ZM)  : 

PL  =  J(X M  ~  XI)2  +  (YM  -  Yl)2  +  (ZM  -  Zl)2 

b.  In  order  to  reduce  the  problem  in  (a)  to  one  unknown,  YM  and 
ZM  are  expressed  as  functions  of  XM  using  the  2-point  form 
of  the  straight-line  equation: 

.  .  (Y2  -  Y1)XM  -  (Y2  -  Y1)X1 

YMY1  +  (X2  -  XI r  (X2  -  XI) 


(Z2  -  Z1)XM  (Z2  -  Z1)X1 
(X2  -  XI)  "  (X2  -  XI) 


c.  Substituting  the  expression  for  YM  and  ZM  from  (b)  into 
the  equation  in  (a)  yields: 


DL2  *  [XM  -  XI]2 


x  ,  (Y2  -  Yl)2  ,  (Z2  -  Zl)2 
(X2  -  XI)2  (X2  -  XI)2 
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This  is  then  solved  for  XM  as  follows:  Let 


A.n-^-n)*  (z:-,zi)* 

(X2  -  XI)2  (X2  -  XI)2 


a  constant. 


a  constant.  Then 


A(XM)2  -  2A(X1)  (XM)  +  A (XI) 2  -•  DL2  =  0 
from  (c) .  Let 


B  =  -2A(X1)  and  C  =  A (XI) 2  -  DL2 
both  constants.  Then  we  have 

A(XM) 2  +  B(XM)  +  C  =  0. 

XM  can  now  be  found  by  computing 


-E  ±  A  -  4AC 
2A 

2  ? 

(Note  that  B  -  4AC  simplifies  to  4A(DL)  )  and  selecting 

the  root  which  is  between  Xl  and  X2. 

Once  the  required  XM  is  found,  the  corresponding  YM  and  ZM 
can  be  determined  by  substituting  the  value  for  XM  in  the 
expressions  of  (b). 
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***** 


Special  cases  exist  if  XI  =  X2,  Y1  =  Y2,  or  Z1  =  Z2.  If  only  one 
of  these  conditions  is  true,  then  the  same  procedure  is  followed  as  in 
the  normal  case  except  that  the  problem  is  reduced  to  two  dimensions. 

If  two  of  the  conditions  exist,  then  the  problem  is  one-dimensional, 
and  the  proper  coordinate  of  (X1,Y1,Z1)  is  simply  incremented  (or  de¬ 
cremented)  by  DL. 

4.  Subroutine  RDGEOL 

Entry  RDGBOL  reads  the  entire  GEOLOGY  file  and  stores  the  informa¬ 
tion  internally  for  retrieval  during  program  execution.  The  variables 
stored  as  they  are  on  the  file  are  NX,  NY,  SCALEX,  SCALEY ,  INDEX(25)  , 
and  PROP (6, 25).  Layer  information  is  stored  in  ZSTOR(30,30,25) ,  where 
ZSTOR(I,J,L)  contains  the  depth  in  feet  of  layer  L  at  grid  point  (I,J). 

A  flag  array,  LFLAG(25) ,  is  set  during  reading  such  that  LFLAG(L)  =  1 
if  the  GEOLOGY  file  contains  data  for  layer  L;  it  is  zero  otherwise. 

Given  II,  JJ,  and  ZZ,  where  II  and  JJ  are  integers,  entry  FINDL 
examines  ZSTOR(II , JJ,L)  for  all  L  to  determine  what  geological  layer  (LL) 
contains  ZZ.  It  is  used  by  subroutine  GETLYR. 
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II. 


PROGRAM  GENTNL 


A.  PURPOSE 

Program  GENTNL,  using  card  input  only,  creates  a  TUNNEL  file  for 
input  to  the  excavation  model,  thereby  bypassing  the  geology  model. 
Execution  and  information  flow  is  shown  schematically  in  Fig.  III-3. 

B.  GENERAL  TECHNIQUE 

The  input  cards  are  read,  checked  for  ascending  sequence  by  POSITION, 

and  the  values  written  to  the  TUNNEL  file  and  to  the  printer.  There  are 
no  practical  restrictions  to  the  number  of  cards  or  the  number  of  PROPERTY 
combinations  Input. 

C.  INPUT 

User  data  cards,  containing  the  values  which  are  to  be  written  to 
the  TUNNEL  file,  are  the  only  input.  The  card  format  is  shown  in  Table 
III-2.  Any  number  of  cards  may  be  submitted,  but  the  last  card  must  con¬ 
tain  a  negative  number  in  the  first  word  (POSITION)  to  indicate  the  end-of- 
input.  Each  card  is  considered  to  have  8  fields  of  10  columns  each;  each 
number  entered  must  contain  a  decimal  point,  but  may  appear  anywhere 
within  its  assigned  10  columns. 

D.  OUTPUT 

1.  A  TUNNEL  file  for  input  to  the  excavation  model.  For  a  file 
description,  see  OUTPUT  under  program  TUNNEL. 

2.  A  printed  copy  of  the  contents  of  the  TUNNEL  file. 

E.  PROGRAM  LOGIC 

The  program  is  basically  a  card-to-tape-and-printer  utility  which 
includes  a  sequence  check  on  the  POSITION  field. 
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Figure  III-3.  TUNNEL  File  Creation  by  Program  GENTNL 


III-19 


TABLE  1 1 1 - 2 

INPUT  CARD  FORMAT  FOR  PROGRAM  GENTNL 
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APPENDIX  IV 


EXCAVATION  MODEL 


M.  McJunkln 
F.  R.  Murphy 
B.  R.  Lieu 


SUMMARY 


This  appendix  reviews  the  programing  details  of  the  excavation 
model  and  gives  a  short  description  of  its  conceptual  basis  <  The  sub¬ 
routines  simulating  the  tunneling  activities  are  then  described  in  detail 
followed  by  a  description  of  strips  that  need  to  be  taken  to  incorporate 
the  routines  described  into  a  control  program  which  will  coordinate  the 
tunneling  activities •  Finally ,  the  control  logic  required  to  coordinate 
any  simulation  is  described,  and  the  construction  of  a  samola  control 
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1. 


NOTES  ON  EXCAVATION  MODEL  DESIGN 


The  tunneling  model  is  designed  as  a  time-step  simulation  program. 
Each  step  in  the  simulation  is  considered  to  occur  between  one  well- 
defined  time  and  state  of  existence  and  another.  The  data  required  to 
so  proceed  is  processed  by  subroutines  that  correspond  to  the  various 
activities  in  the  tunneling  process  being  simulated.  The  subroutines 
simulate  the  whole  excavation  process.  A  control  program  must  be  provided 
by  the  user  to  coordinate  the  activities  of  the  subroutines,  initialize 
data,  and  print  output  reports. 

The  concept  of  the  simulation  proceeding  from  one  well-defined 
time  and  state  to  another  is  implemented  through  the  use  of  "old"  and 
"new"  working  parameter  common  areas  (OLDCOM,  NEWCOM) .  During  any  given 
time  step,  the  contents  of  OLDCOM  describes  the  state  of  the  tunneling 
system  at  the  beginning  of  the  time  step;  the  NEWCOM  contents  describes 
the  state  of  the  tunneling  system  at  the  end  of  the  current  time  step. 

Each  subroutine  receives  its  input  information  from  OLDCOM  and  places 
its  output  information  in  NEWCOM.  Each  subroutine,  therefore,  determines 
the  state  of  the  system  at  the  beginning  of  the  new  time  step  according 
to  information  received  at  the  beginning  of  the  current  time  step. 

Figure  IV-1  illustrates  the  flow  of  information  which  is  processed 
by  any  given  subroutine.  Some  of  the  information  paths  for  some  sub¬ 
routines  may  be  absent,  but  no  subroutine  has  any  information  path  not 
depicted  in  Fig.  IV-1.  It  is  emphasized  that  all  information  transfer 
to  and  from  subroutines  is  through  common  areas;  the  control  program  is 
not  in  any  way  involved  in  information  transfer  to  and  from  subroutines. 
From  time  to  time,  as  the  tunnel  advances,  the  control  program  trans¬ 
fers  new  geology  information  to  the  common  area  of  an  old  working  para¬ 
meter,  but  it  never  transfers  information  directly  to  or  from  a  subroutine. 

Parameter  information  for  the  use  of  the  subroutines  is  read  by  the 
control  program  and  is  placed  in  the  common  areas.  After  cards  are  read 
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Figure  IV-1.  Information  Flow  for  Individual 
Tunneling  Model  Subroutines 
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in,  each  subroutine  which  has  an  initialization  entry  point  Is  called  at 
that  entry.  The  subroutines  contain  default  values  for  the  various  para¬ 
meters.  If  no  card  input  information  has  been  provided  for  one  or  any 
of  them,  the  model  uses  the  default  values.  This  approach  was  taken  in 
order  to  avoid  the  need  to  specify  large  numbers  of  parameters.  Parameter 
information  for  one  execution  of  the  model  need  contain  specifications 
only  for  those  subroutine  parameters  which  are  of  inteiest. 

The  time  stepping  and  the  approach  creating  two  working  common  areas 
leads  to  a  simplification  of  reality,  forcing  the  simulation  model  to 
operate  in  a  discontinuous  fashion  (in  reality,  some  tunneling  processes 
are  continuous).  This  is  not  considered  to  be  a  significant  problem  as 
long  as  the  time  steps  are  kept  relatively  short — perhaps  about  1  to  10 
minutes. 

As  the  subroutines  are  executed,  cost,  availability,  and  utilization 
information  is  generated  and  cumulated.  This  information  is  placed  in 
common  areas  by  the  ibroutines  involved.  These  common  areas  are  used  to 
compute  values  for  printing  reports. 
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II. 


DESCRIPTION  AND  FLOW  CHARTS  OF  SUBROUTINES  IN  EXCAVATION  MODEL 


A.  INTRODUCTION 

The  subroutine  descriptions  are  grouped  by  the  element  of  excavation 
and  subgrouped  by  the  type  of  tunneling  they  represent.  For  example,  the 
first  group  of  subroutines  (Sec.  IV-B)  covers  rock  fragmentation,  each 
type  of  fragmentation  (boring  machine,  water  jet,  etc.)  being  described 
separately.  Also  discussed  are  the  input  and  output  routines  written 
for  the  Layout  Tunnel  (see  Vol.  I  of  this  report),  which  may  be  modified 
for  use  in  other  simulations.  Figure  IV-2  is  a  chart  of  subroutines  re¬ 
lated  to  the  operations  they  simulate. 

The  text  of  this  section  of  Appendix  IV  is  organized  as  follows: 

•  A  short  description  of  the  process  being  simulated. 

•  A  list  of  the  common  blocks  that  need  to  be  included  in  any 
control  program  written  to  simulate  an  excavation  using  a 
given  process.  Note  that,  in  addition  to  the  common  blocks, 
any  TYPE,  EQUIVALENCE,  and/or  DATA  statement  involving  a 
variable  in  the  common  blocks  listed  must  be  included  in  the 
model . 

•  A  list  of  input  variables,  principally  a  NAMELIST  (and  its 
variables) . 

•  A  list  of  status  variables  through  which  the  subroutines 
change  the  status  of  the  process  or  of  another  process. 

Almost  all  of  the  status  variables  exist  in  two  forms:  present 
and  future.  They  belong  to  the  two  common  areas  (of  parameters) 
described  in  Sec.  I  of  this  appendix.  The  future  form  is  that 
shown  in  :he  descriptions  of  routines.  These  variables  are 
used  tn  turn  on  and  off  the  excavation  in  the  sample  control 
program.  However,  they  can  also  be  used  to  turn  off  other 
processes  or  change  subroutine  calls,  thus  giving  the  user 

more  flexibility  in  simulating  the  tunneling  process. 
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Figure  IV-2.  Subroutines  of  the  Excavation  Model 


Input  variables  and  status  variables  are  defined  in  Appendix  VI, 
and  should  be  studied  in  conjunction  with  the  listings  and  definitions  in 
Appendix  VI. 

Several  general  statements  that  apply  to  the  subroutines  follow. 

1.  All  subroutines  have  a  normal  entry  point,  used  when  the  rou¬ 
tine  is  called  during  the  run  for  each  time  step.  A  few  sub¬ 
routines  have  two  normal  entry  points  (e.g.,  SURGE),  and  these 
are  called  by  other  subroutines,  not  by  the  control  program. 

2.  Most  subroutines  also  have  an  initialization  entry  point.  Un¬ 
less  otherwise  stated,  the  initialization  entry  should  be  called 
only  once,  at  the  start  of  the  run  immediately  following  the 
reading  in  of  cards. 

3.  As  mentioned  above,  status  variables  have  two  forms.  The 
future  form  of  the  variable  is  usually  the  present  form  pre¬ 
ceded  by  an  F  or  L.  For  example,  the  status  variable  in 
CVMNT  which  indicates  whether  the  loader  is  being  maintained 
has  a  present  form  MCV  and  a  future  form  LMCV.  Each  subroutine 
uses  the  present  form  to  indicate  the  present  status  of  the 
process  described,  and  changes  the  futuie  form  as  a  result 

of  computations.  The  subroutine  never  changes  the  present 
form.  At  the  beginning  of  each  time  step  the  control  program 
sets  the  present  status  variables  equal  to  the  future  variables 
and  thus  updates  the  status  of  processes.  For  example,  in 
the  sample  control  program,  LIEXCA  is  set  equal  to  1  in  GRNSUP 
to  indicate  that  ground  support  is  falling  too  far  behind  the 
excavator  and  as  a  result  the  excavator  must  be  turned  off  in 
the  next  cycle  to  allow  ground  support  to  catch  up.  At  the 
start  of  the  next  cycle  IEXCA  (the  present  variable)  is  set 
equal  to  LIEXCA  in  the  control  program.  When  the  checks  are 
made  to  determine  the  status  (MBORE)  of  the  boring  machine, 

IEXCA  is  found  to  be  1  and  MBORE  is  set  equal  to  7,  indicating 
that  the  boring  machine  is  idle. 
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B. 


ELEMENT:  ROCK  FRAGMENTATION 


1 .  Type:  Borina  Machine 

The  .set  of  subroutines  BORE,  CUTTER,  and  REPAIR  simulate  rock  frag¬ 
mentation  using  a  boring  machine.  These  routines  are  currently  set  up 
so  that  their  status  variables  are  not  in  the  two  parameter  common  areas 
(OLDCOM,  NEWCOM)  but  are  single  variables  which  have  only  a  present  form. 
This  could  be  changed  by  having  the  user  insert  another  form  in  the  routines 
and  put  the  two  forms  in  COMMON/OLDCOM/ ,  COMMON / NEWCOM/ . 

Common  blocks:  COMMON/ALL/ 

COMMON /BORE/ 

COMMON /PERFRM/ 

COMMON /MONEY/ 

Input  variables:  NAMELIST/BORE/ 

CL,  CPC,  DTA,  DTC,  DTCD,  DTD,  DTM,  KK,  PBM,  R, 

RC,  RPM,  TR,  XCPC,  EBOREQ,  ETRANSL,  DJMBMM,  BOMEN,  BOCST 

Status  variables:  MBM 

MBORE 

LNCUTR 

BORE  -  Rock  Fragmenting 

Operating  time,  plant  and  equipment  costs,  and  labor  costs  for  the 
boring  machine  for  each  time  slice  are  computed  and  cumulated.  If  the 
boring  machine  is  operating  it  computes  the  distance  traveled  by  the 
boring  machine  and  the  job  material  cost  of  operating  the  machine. 

CUTTER  -  Changing  Cutters 

Cutter  wear  is  computed  if  the  boring  machine  is  operating  and 
cutters  are  not  being  replaced.  Cutter  wear  is  checked  and  cutters  are 
scheduled  for  replacement  by  setting  LNCUTR  =  1  if  necessary.  If  cutters 
are  in  the  process  of  being  replaced,  then  one  time  step  (DT)  is  added 
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to  the  time  already  spent  in  replacement.  If  time  spent  in  replacement 
is  greater  than  or  equal  to  the  replacement  time  input  by  the  user,  then 
replacement  of  cutters  is  scheduled  to  end  in  the  next  cycle  by  setting 
LNCUTR  =  0. 


REPAIR  -  Repairing  Boring  Machine 

The  subroutine  cumulates  time  until  the  user  input  time  for  scheduling 
maintenance  is  reached.  At  that  point,  maintenance  is  scheduled  for  the 
machine  to  start  in  the  next  time  cycle  by  setting  MBM  =  1  and  cost  of 
the  maintenance  is  computed.  If  maintenance  is  in  progress,  then  time 
is  added  to  the  user  input  maintenance  period.  When  the  user  input  main¬ 
tenance  period  has  elapsed,  maintenance  if:  scheduled  to  end  in  the  next 
cycle  by  setting  MBM  =  0. 

2.  Type:  Water  Jet 

The  set  of  subroutines  JETE-IP,  JETMNT,  and  JETAGN  simulate  rock 
fragmentation  using  water  jet  impact,  continuous  and  intermittent  pulses. 

Common  blocks :  COMMON/ ALL/ 

COMMON/ NJETS/ 

COMMON/ PERFRM/ 

COMMON/MONEY/ 

C0MM0N/0LDC0M/ 

COMMON/ NEWCCM/ 

Input  parameters:  NAMELIST/ JETS/PNOZZ,  DNOZZ,  NJETS,  MODEJ , 

PPM,  PULSED,  ETAJ,  ETAIMP,  ENERGJ,  DTCJET, 

DTMJET,  DJMWJM,  DTRJET,  XRJET 

Status  variables:  LMWJ 

LMWJR 

LMWJM 

FHEA'/J 

FQWATR 
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In  a  normal  entry  a  check  is  made  to  determine  if  the  water  jet  is 
operating  (MWJ  =0);  if  not  the  routine  is  exited.  If  it  is  operating, 
the  subroutine  computes  the  amount  of  rock  disintegrated,  the  amount  of 
heat  and  water  added  to  the  tunnel  by  the  jet,  and  the  cost  for  one  time 
step . 

JETMNT  -  Maintenance 

A  normal  entry  checks  first  to  find  whether  maintenance  is  in 
progress.  If  not,  then  one  time  step  is  subtracted  from  the  time  left 
until  the  next  maintenance  period  (time  between  maintenance  periods  input 
by  user).  If  the  remaining  time  is  then  0,  and  if  repositioning  is  not 
being  done  (MWJR  ^  0),  the  jet  is  scheduled  for  maintenance  in  the  next 
time  step  by  setting  LMWJM  =  0  and  set  LMWJ  =  LMWJ  +  1  to  indicate  jet 
not  operating. 

If  maintenance  is  in  progress  at  entry  to  the  routine,  the  time 
elapsed  for  maintenance  is  increased  by  one  time  step.  If  the  user  impact 
time  for  maintenance  (DTMJET)  has  been  reached  or  exceeded,  the  jet  is 
scheduled  for  removal  from  maintenance  in  the  next  time  step  by  setting 
LMWJMC  =  1  and  subtracting  1  from  LMWJ,  and  the  cost  is  increased  by  the 
cost  of  a  maintenance  period. 


JETAGN  -  Repositioning  in  Progress 

The  first  check  in  a  normal  entry  determines  whether  the  jet  is 
operating;  if  not,  then  if  maintenance  is  in  progress  the  routine  is 
exited.  If  maintenance  is  not  in  progress,  if  the  jet  is  not  operating, 
and  if  repositioning  is  being  done,  one  time  step  is  added  to  the  elapsed 
repositioning  time  and  a  check  is  made  for  repositioning  completed.  If 
it  is  completed,  then  its  completion  is  scheduled  for  the  next  time  step 
(LMWJR  =  1  and  LMWJ  =  LMWJ  -  1). 


If  the  Water  jet  is  operating  at  normal  entry  to  the  routine,  then 
the  distance  traveled  by  the  jet  since  the  last  repositioning  is  checked. 


If  it  is  greater  than  the  user  input  maximum  allowed  distance,  reposition¬ 
ing  is  scheduled  for  the  next  cycle  (LMW.JR  =  0,  LMWJ  =  LMWJ  +  1). 


3.  Type:  Projectile  Fragmentation 

The  set  of  subroutines  PROJTL,  PRJBR,  JETAGN ,  and  JETMNT  simulate 
rock  fragmentation  using  projectile  impact.  The  routine  to  simulate 
repositioning  of  the  guns  is  the  same  as  for  the  water  jet,  as  is  the 
maintenance  routine.  The  initialization  and  normal  entry  points  are 
different,  however  (PRJAGN  and  PRJPOS  for  the  repositioning  routine,  PRJMNT 
and  PRJRPR  for  the  maintenance  routine). 

Common  blocks:  COMMON/ALL/ 

COMMON/NJETS/ 

COMMON/PERFRM/ 

COMMON/MONEY/ 

COMMON/OLDCOM/ 

COMMON/NEWCOM/ 

Input  parameters:  NAMELIST/PELLET/DTCJET ,  DTMJET ,  ETAGN ,  ETAIPT , 

WPRJ ,  VELPRJ ,  VOLPRJ ,  NGUNS,  CSTPRJ,  PRJPM, 

CPBRL,  TRBRL ,  BLT,  XRJET,  DJMWJM,  DTRJET 

Status  variables:  LMPI 

LNBARL 

LMWJR 

FHEATJ 


PROJTL  -  Rock  Fragmentation 

In  a  normal  entry  a  check  is  made  to  determine  if  projectile  guns 
are  operating.  If  yes,  rock  fragmented,  advance  of  face,  power  costs, 
and  heat  generated  are  calculated  for  one  time  step.  Total  job  materials 
cost  for  rock  fragmentation  is  incremented.  If  no,  the  subroutine  is 
exited. 
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PRJBR  -  Barrel  Replacement: 

In  a  normal  entry  a  check  is  made  for  barrel  replacement  in  progress; 
if  it  is  not,  time  elapsed  since  replacement  is  increased  by  one  time  step. 
Time  elapsed  against  user  input  time  between  replacements  is  checked.  If 
it  is  time  for  replacement,  repositioning  of  barrel  in  progress  is  checked. 
(MWJR  =0).  If  it  is  not,  barrel  replacement  is  scheduled  for  next  time 
step  (LNBARL  =  0,  LMP1  =  LMP1  +  1). 

If  on  the  first  check  in  a  normal  entry  barrel  replacement  is  in 
progress,  then  time  elapsed  since  barrel  replacement  began  is  incremented 
by  one  time  step.  A  check  is  made  for  replacement  completed.  If  com¬ 
pleted,  end  of  replacement  is  scheduled  for  next  time  step  (LNBARL  =  1, 

LMPI  =  LMPI  -  1).  Job  material  cost  (DJMRD)  is  incremented  by  cost  of 
replacement. 

4.  Type:  Drill  and  Blast 

This  set  of  four  subroutines  simulates  rock  fragmentation  by  drill¬ 
ing  and  blasting.  The  four  subroutines  provided  are:  MOVEIN,  MOVEOUT, 
HOLEBRN,  SETCHG.  A  maintenance  routine  which  can  be  patterned  after  the 
general  maintenance  routine  XXXMNT  shown  in  Appendix  VI  must  be  provided 
by  the  user.  Note  that  variables  chosen  for  maintenance  times  and  costs 
must  be  added  to  NAMELIST  below  and  to  COMMON/BLAST/ . 

Common  blocks:  COMMON/ALL/ 

COMMON /MONEY/ 

C0MM0N/PERFRM/ 

COMMON /BLAST/ 

C0MM0N/0LDC0M/ 

C0MM0N/NEWC0M/ 

Input  variaoles :  NAMELIST/ BLAST/PF,  TYPEPF,  TCHG,  MEN,  NH,  CCAP 
WPL ,  CPL ,  CEX,  CM,  ND,  LD,  NHB,  NDB,  LDB,  POD, 

ADH,  SE,  POB,  LBIT,  LSTEEL,  LBURN,  TIN,  TOUT, 

CSTEEL,  CBIT,  CBURN ,  ADH,  ADB 
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Status  variables:  LNDRLB 
LNCHRG 
LJUMOT 
LJUMIN 
LNDRIL 


HOLBRN  -  Drilling 

The  subroutine  simulates  the  drilling  of  holes  of  a  burn  pattern 
with  drifter  drills  and  burn-cut  drills.  In  a  normal  entry  one  time 
step  is  subtracted  from  both  time  to  drill  holes  with  percussion  drills 
and  time  to  drill  with  burn-cut  drills.  If  the  result  for  percussion 
drills  is  positive,  then  the  result  for  burn  drills  is  checked;  if  both 
are  positive,  then  drilling  is  not  finished  and  the  subroutine  is  exited. 

If  one  or  both  of  the  results  are  negative,  drilling  for  one  or  both  is 
scheduled  to  end  in  the  next  cycle  (LNDRIL  =  1  and/ nr  LNDRLB  *=  1)  and 
costs  of  drilling  are  calculated  before  the  main  program  is  resumed. 

Note :  Initialization  must  be  redone  for  each  drilling  period. 

Therefore,  the  control  program  must  reset  to  ICYCLE  =  1 
when  drilling  is  to  be  done. 

SETCHG  -  Setting  Charges 

The  subroutine  simulates  setting  the  blast  charge.  In  a  normal 
entry,  one  time  step  is  subtracted  from  the  time  remaining  to  set  a  charge. 
If  time  still  remains,  the  main  program  is  executed.  If  no  time  remains, 
the  finish  of  setting  charge  for  the  next  cycle  is  indicated  (LNCHRG  =  1). 
Job  materials  costs  for  setting  charges  are  computed  and  a  return  main 
program  is  executed. 


Note:  This  routine,  like  HOLBRN,  must  be  initialized  for  each 
drilling  period. 


MOVOUT  -  Moving  Out  Drilling  Equipment 

This  subroutine  simulates  moving  out  drilling  equipment.  In  a 
normal  entry  the  time  to  move  out  is  decreased  by  one  time  step.  A 
check  is  made  to  determine  whether  moving  out  is  completed.  If  it  is, 
then  end  of  roovit g  is  scheduled  for  the  next  time  cycle  by  setting 
LJUMOT  =■  1. 


Note :  This  routine  must  be  reinitialized  each  time  moving  is 
done  by  setting  ICYCLE  =  1. 

MOVEIN  -  Moving  Drills  In 

This  subroutine  simulates  moving  drills  in.  A  normal  entry  first 
decreases  moving  time  remaining  by  one  time  step.  Then,  if  no  time  re¬ 
mains,  the  end  of  moving  is  scheduled  by  setting  LJUMIN  =  1.  Also,  the 
number  of  feet  that  the  tunnel  will  be  advanced  (DX)  and  the  volume  of 
muck  created  (DV)  for  this  drilling  and  blasting  cycle  is  computed  here. 

Note:  This  routine  must  be  reinitialized  each  time  moving  is 

done  by  setting  ICYCLE  =  1. 

C.  ELEMENT:  MATERIALS  HANDLING  (SHORT  HAUL) 

1.  Type:  Integrated  Conveyor  Loader 

This  set  of  subroutines  simulates  moving  muck  from  the  face  area. 
It  must  be  used  with  another  set  of  subroutines  for  long  haul  (e.g., 
rails).  Together  the  two  sets  simulate  removal  of  the  muck  to  the  dis¬ 
charge  area.  The  integrated  conveyor  loader  is  simulated  by  two  subrou¬ 
tines  CVLOAD  and  CVMN1 . 

Common  Blocks:  COMMON/ALL/ 

COMMON/OLDCOM/ 

COMMON /NEWCOM/ 

COMMON/WHEELS/ 

COMMON /CONVEY/ 

COMMON/PE RFRM/ 

COMMON/MONEY/ 


Input  parameters:  NAMELIST/LOADER/AB ,  VBI,  SM,  TCCV,  TMCV,  WMR, 

MLTYP,  ECONEQ ,  ECONESS ,  JMCV,  CVMEN,  CVCST 

Status  variables:  LMCV 

LLOADR 

LMFLAC 

Note:  Operating  time  for  the  total  muck  hauling  (short  haul  and  long 
hai  !.s  computed  in  the  long-haul  subroutines.  Long  haul  and 
short  haul  each  compute  down  time. 

CVLOAD  -  Loading  Muck 

One  time  step  is  added  to  labor  time  used  for  the  loader,  operating 
time  for  materials  handling  is  updated,  plant  and  equipment  costs  are 
updated  for  the  time  period  advance.  If  the  loader  was  unable  to  handle 
all  the  muck  on  the  last  cycle,  or  no  train  was  available  for  loading  the 
excess  muck  remaining  is  computed,  then  the  total  muck  to  be  moved  is 
computed.  The  muck  is  then  either  loaded  onto  vehicles  (MLTYP  =  1) ,  or 
carried  away  by  a  conveyor  (MLTYP  =2).  (A  check  is  made  to  determine 
if  the  long-haul  system  will  take  it  all.  If  not  LLOADR  is  set  to  1  to 
indicate  that  it  is  overloaded.)  If  rails  or  trucks  are  the  long-haul 
system  and  none  is  available  for  loading,  LLOADR  is  set  to  1.  After 
loading  the  vehicle  is  sent  to  the  discharge  area  if  it  is  full. 

CVMNT  -  Maintenance 

One  time  step  is  added  to  the  time  elapsed  since  the  last  maintenai  ze 
period.  If  the  user  input  time  between  maintenance  periods  has  been  ex¬ 
ceeded,  maintenance  is  scheduled  for  the  next  time  step  by  setting  LMCV  =  1. 

If  maintenance  is  in  progress,  then  one  time  step  is  added  to  the 
time  already  accumulated  for  this  maintenance  period.  If  the  time  accum¬ 
ulated  is  greate?  *n  or  equal  to  the  user  input  maintenance  period,  the 

loader  is  schedu  co  go  back  into  operation  in  the  next  time  step  by 

setting  LMCV  =  0. 
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2. 


Type:  Machine  Loaders  and  Shovels 

This  set  of  subroutines  simulates  removing  of  muck  from  the  face 
area  and  is  interchangeable  with  the  integrated  conveyor  loader  set.  It 
is  to  be  used  with  one  of  the  sets  of  subroutines  for  long  haul.  Together 
they  form  the  simulation  of  materials  handling  in  the  model.  It  consists 
of  three  subroutines,  MUKLOD,  MUKIN,  MUKOUT;  and  a  fourth  routine,  CVMNT, 
is  used  for  simulating  maintenance.  (The  same  routine,  CVMNT,  is  used  by 
the  integrated  convej'or  loader.)  Note  that  MUKIN  and  MUKOUT  status 
variables  must  be  set  =  0  in  the  control  program  to  initialize  each  move 
in  and  out,  respectively,  from  the  face. 

Common  blocks:  COMMON/ALL/ 

COMMON /COMOLD/ 

COMMON/COMNEW/ 

COMMON/WHEELS/ 

COMMON/CONVEY/ 

COMMON /PERFRM/ 

COMMON /MONEY/ 

Input  variables  NAMELIST/SHOVL/ 

STIME,  QDMR,  DTMO, 

DTMI,  TMCV,  TCCV, 

MLTYP,  JMCV 

Status  variables:  LMKIN,  LMUKOT , 

LLODR,  FQL 

MUKIN  -  Moving  In  Shovels 

In  a  normal  entry,  the  routine  determines  whether  muckers  are  in 
the  process  of  being  moved  to  the  face.  If  not,  nothing  is  done.  If 
they  are  being  moved  in  then  their  moving  time  is  decreased  and  a  check 
is  made  to  determine  if  the  move  has  been  completed.  If  it  has,  LMKIN 
is  set  to  1  to  indicate  completion. 

MUKOUT  -  Moving  Out  Shovels 

This  routine  handles  the  moving  of  muckers  away  from  the  face  in 
exactly  the  same  way  MUKIN  handles  their  moving  to  the  face. 
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MUKLOD  -  Loading  Muck 

In  a  normal  entry,  the  routine  first  determines  whether  a  continuous 
main-line  system  (long-haul  system  is  a  conveyor  belt)  is  being  used.  If 
it  is,  then  the  mucking  rate  is  computed  and  compared  with  the  muck  to  be 
moved.  If  the  mucking  rate  is  not  adequate,  LLODR  =  0  is  set  to  indicate 
mucking  still  in  progress,  load  as  much  as  possible.  If  the  mucking  rate 
is  adequate,  muck  is  loaded.  If  a  unitized  main-line  system  is  being  used 
instead  of  a  continuous  system,  then  a  first  check  is  made  to  determine 
if  units  (e.g.,  trains)  are  being  switched.  If  yes,  the  time  used  for 
switching  has  one  time  step  added  to  it.  Time  used  for  switching  is  com¬ 
pared  with  time  needed  to  complete  switching.  If  still  more  time  is  needed, 
no  loading  is  done.  If  switching  is  finished  and  time  is  left,  then  the 
mucking  rate  is  computed  for  time  remaining.  The  number  of  units  per 
vehicle  is  checked  (e.g.,  muck  cars  per  train).  If  there  exists  only  one 
unit  per  vehicle,  the  full  vehicle  just  switched  with  the  empty  one  is 
released.  If  there  is  more  than  one  unit  per  vehicle,  a  check  determines 
if  all  units  are  filled;  if  so,  the  vehicle  is  released.  Whether  a  ve¬ 
hicle  is  released  or  not,  the  computation  for  loading  muck  described  below 
is  done  for  whatever  time  remains. 

If  no  vehicles  are  being  switched,  the  calculation  of  the  mucking 
rate  is  made.  If  it  is  adequate  for  the  muck  to  be  loaded,  LLODR  is  set 
to  1  to  indicate  loading  is  complete.  If  unit  is  full  after  loading, 
switching  time  is  set  (TIMEL)  and  the  check  for  switching  time  is  made  as 
described  above.  If  the  unit  is  r.ot  filled,  the  routine  is  exited. 

D.  ELEMENT:  MATERIALS  HANDLING  (LONG  HAUL) 

1.  Type:  Rails 

The  set  of  subroutines  simulates  a  long-haul  rail  system  to  carry 
the  muck  to  the  discharge  area.  This  set  in  conjunction  with  a  set  of 
short-haul  subroutines  from  the  materials  handling  element  of  tunneling. 

The  routines  in  the  set  are  RA1LHL,  CUBIC,  ADDTRN(I),  RAILDS ,  RAILEX, 
and  RAILMT. 


Common  clocks: 


CO,'"  ,N/ALL/ 

C< JMMUN /  Wri h  CL S  / 

COMMON/  Ol.DCOM/ 

COMMON /NEWCOM; 

COMMON /MONEY/ 

COMMO  '"ERFRM/ 

Note:  The  routine  CUBIC  does  not  need  any  common  blocks. 

Input  variables:  NAME LIST/RAI  NTS/  AE,  AK,  AMAX,  AMAXL,  AM.LNL ,  BSL, 

CARCAP ,  CP,  OE ,  DF,  DIAS,  DTMA,  DTU ,  NSWCIF, 

NGEO,  NEXON,  XDE ,  AB,  VBI,  SM,  EL,  FC,  FR,  FT, 

HP A,  HPEV ,  H°EA,  HPFA,  HPFV,  HPV,  LOCO,  MC,  ML, 
NCARS ,  NPO INC,  NTD,  NTM,  NTMAX,  XP,  NTMILP ,  NTMLPP 
NT  RACK,  SL,  TCURVX,  TCURVY,  TMAINT,  TWE,  VD,  VE, 
VF,  VS,  VMAX,  WC,  WL,  XDX,  MAXLD,  NVEHCL,  NUMSWT, 
SWITCH,  ISTA,  TPOS ,  TSPD,  TMAIN,  KSTOP,  MLTYP ,  WMR 
ELOCO,  EMl'CXC,  ETRACK,  HSVTTC,  EUMLOA ,  ERMAIN, 
JMMHM,  NUMLD,  ISW,  RAMEN,  RACST. 


General  status  variables:  LI.UHCL 

LNBYBY 

LNSWCH 

LIFTED 

LKUNLO 

LLSTOP 

LNTRADA 

LNVHCL 

LNMSWT 

NUMLD 


Status  Variables  for  Each  Train: 

FTSTAT  (J,  I),  J  Jth  Train/Truck 

1=1  Status  (see  below) 

=  2  Position,  feet  from  discharge  area 
=  3  Speed ,  mph 

=  4  Days  since  last  maintenance,  days 
FTSTAT  (J,  1) 

=  0  Train/truck  is  stopped,  EMPTY  reason  given 
=  1  Train/truck  is  stopped,  FULL  by  JSTOP(J) 

Train/ truck  is  excelerating ,  F, 
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=  3  Train/ truck  is  excelerating,  F 

=  4  Train/truck  is  going  at  full  speed,  E 

=  5  Train/truck  is  going  at  full  speed,  F 

=  6  Train/truck  is  decelerating,  E 

*  7  Train/truck  is  decelerating,  F 

■  8  Train/ truck  is  in  switch,  E 

■  9  Train/ truck  is  in  switch,  F 

=  10  Train/truck  is  in  discharge  area 

■  11  Train/truck  is  in  maintenance  area 

I  STOP 

■  0  Continue  train/truck  system 

*  1  Shut  down  train/truck  system 

-  2  Bring  up  train/ truck  system 

LKSTOP(J) 

■  0  Not  stopped 

■  1  At  face,  loading 

-  2  In  switch,  train  stopped  ahead 

-  3  In  switch,  train  approaching 

■  4  External  reasons 

-  5  In  switch,  waiting  to  enter  discharge  area 

-  6  In  switch,  waiting  to  enter  load  area 
-  101,  102  ...  At  face,  in  queue 

FUTIME(J)  -  Time  to  unload  train  J 

FTOP  (J)  -  Cumulative  operating  time  of  train  J 

FTFC(J)  *  Cumulative  cost  of  train  J 

Status  variables  for  each  switch  K:  Kth  switch 

FSWTCH(K)  -  Distance  in  feet  of  centroid  of  switch  K  from  discharge 
area. 


IV- 2  3 


RAiLHL  -  Handling  Muck  by  Train 

The  subroutine  first  adds  DT  to  the  labor  time  fnr  rails.  It  also 
computes  plant  and  equipment  00" '.s  and  down  time  for  the  rail  system. 
Then  it  sets  into  local  varia  1  s  the  (see  Table  TV-2  fcr  status  codes)  : 


Status  of  each  train 

(ITSTAT (J ,  I)) 

Position  of  each  train 

(TSTAT (.1 ,  2)) 

Speed  of  each  train 

(TSTAT (J ,  3)) 

Maintenance  factor 

(TSTAT (J,  4)) 

Reasons  train  stopped 

(KSTOP (J)) 

Cumulative  cost  for  train 

(TFC(J) ) 

Operating  time  of  train 

(TOP (J)) 

It  then  divides  DT  into  smaller  time  cycles,  and  if  the.  system  is  operating 
puts  each  train  through  the  smaller  time  cycles  until  DT  is  reached,  chang¬ 
ing  the  train's  status  as  indicated  by  its  status  at  the  beginning  of  the 
cycle  and  what  is  happening  to  other  trains.  For  example,  if  train  1  is 
waiting  to  move  toward  the  discharge  area,  and  train  2  is  moving  back 
from  unloading  to  loading  area,  train  2's  progress  will  be  calculated  and 
monitored  by  train  1.  When  train  2  is  back  to  the  loading  area  then 
train  1  will  be  allowed  to  start  for  the  discharge  area. 

If  the  system  must  be  brought  up  or  shut  down,  this  is  done  first 
and  then  each  train  is  put  through  the  small  time  cycles.  After  all 
small  time  cycles  are  finished,  the  global  status  variables  JSTAT  (J ,  1, 
etc.)  are  reset  to  the  updated  values  of  the  local  variables  and  the  sub¬ 
routine  is  exited. 

CUBIC 

This  routine  is  a  function  which  finds  the  first  real  root  of  a 
cubic  equation. 
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RAILDS  -  Unloading  Muck  at  Discharge  Area 

This  subroutine  accounts  for  unloading  much  from  trains.  If  unload¬ 
ing  has  been  stopped  (KUNLO  =  1),  the  routine  does  nothing;  otherwise, 
it  determines  whether  any  train  is  unloading.  If  train  J  is  unloading 
(ITSTAT (J ,  1)  =  10),  the  time  remaining  before  it  completes  unloading  is 
computed.  If  it  will  be  finished  before  the  end  of  the  current  time  cycle, 
train  J  is  added  back  into  the  system  (if  system  is  2  track)  or  (if  system 
is  1  track)  subroutine  A1  T>TUN  is  called  and  adds  the  train  back  into  the 
system  if  it  is  possible.  If  the  train  has  been  added,  the  count  of  trains 
in  the  discharge  area  is  reduced  by  1.  After  all  trains  have  been  dealt 
with,  the  number  of  trains  left  in  the  loading  area  at  the  next  cycle  is 
ompared  to  the  allowed  number.  If  the  number  is  greater  than  allowed, 
the  run  is  stopped.  If  it  is  equal  to  the  number  allowed,  the  discharge 
area  is  indicated  filled  for  the  next  cycle  by  setting  LIFILLD  =1.  If 
it  is  less  than  number  allowed,  the  discharge  area  is  indicated  ready 
for  a  train  by  setting  I,TriLLD  *  0. 

RAILEX  -  Extend  Track 

This  routine  handles  extension  of  the  track  for  the  trains.  If 
rail  extension  is  stopped  (NEXON  -  1),  the  routine  does  nothing.  Other¬ 
wise,  NSWTCH  is  checked  to  determine  whether  the  switch  is  already  being 
moved.  If  not,  the  track  extension  needed  is  computed  using  either 
cyclic  operations  geometry  (NGEO  f  1)  or  continuous  operations  geometry 
(NGEO  =  1)  which  has  been  input  by  the  user.  If  the  computed  advance  of 
the  track  is  not  enough  to  allow  the  excavator  to  continue  operating, 
then  the  excavator  is  turned  off  for  the  next  cycle  by  setting  LNBYBY  =  1. 
Then  there  is  a  check  to  determine  if  a  new  switch  needs  to  be  added  and/or 
the  last  switch  needs  to  be  pushed  forward.  If  either  of  these  need  to 
be  done,  computations  described  below  are  done. 

If  at  normal  entry  a  switch  was  being  moved  or  added,  then  time  to 
move  the  switch  and/or  add  a  switch  is  decreased  (computed  if  just  be¬ 
ginning  move  or  add)  and  the  completion  is  scheduled  when  finished.  In 
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pushing  the  last  switch  torward,  it  i:.  :u>t  market  as  puslud  forward  until 
after  the  time  to  push  it  is  finished.  t  is  pushed  either  a  distance 
equal  to  the  excavator's  progress  in  the  cycle  (DX)  or  by  a  distance  pre¬ 
set  by  the  user  (AMAXL  -  AMIMd  .  The  latter  distance  will  be  used  unless 
AMAXL  =  AMINn.  If  a  switch  is  to  be  added,  again  it  is  not  indicated  as 
having  been  added  until  the  time  to  add  it  is  over.  Then,  the  number  of 
switches  is  updated  and  the  position  of  the  new  switch  is  put  just  behind 
the  position  of  the  moveable  switch  which  is  always  closest  to  the  face. 


Finally,  a  check  is  made  to  determine  if  a.  train  should  be  added 
to  the  system  since  the  rails  have  been  extended.  Distance  from  the 
portal  in  miles  is  computed  and  compared  against  user  inputs  which  give 
NTMILP  trains  allowed  before  XT’  miles  and  NTMLPP  trains  allowed  after  XP 
miles.  If  the  number  of  trains  in  the  system  is  already  equal  to  the 
number  allowed,  no  train  is  added,  otherwise,  ADBulN  is  called  if  tie 
discharge  area  is  not  filled.  The  new  train,  if  ADDTRN  allows  it,  is 
entered  into  the  discharge  area. 


RAILMT 

DT  is  added  to  the  time  since  last  maintenance  TSTATd,  4)  for  each 
train  T  which  is  not  unloading  or  already  in  maintenance.  If  for  any 
train  I,  TSTAT(I,  4)  is  greater  than  the  user  input  time  between  mainte¬ 
nance,  the  train  is  put  into  maintenance  (if  maintenance  area  is  not 
full) . 


If  a  train  I  is  already  in  maintenance,  then  its  time  in  maintenance 
is  decreased  by  DT.  If  this  time  has  reached  0,  the  train  is  returned 
to  the  discharge  area  from  the  maintenance  area  and  cost  of  maintenance 
is  computed. 

Finally,  the  number  of  trains  in  maintenance,  XTMA  ,  is  compared  to 
the  user  input  maximum  allowed  trains.  If  too  many  trains  are  in  mainte¬ 
nance  an  error  message  is  printed  and  the  run  is  stopped. 
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2.  Type:  Conveyor  Belt 

A  set  of  four  routines:  TRNPRT,  EXTNSN,  SURGE,  and  BELT,  simulates 
hauling  muck  to  the  discharge  area  by  the  conveyor.  Each  routine  need  be 
initialized  only  once  at  the  start  of  the  run.  Initialization  is  done 
by  setting  ICYCLE  to  1  before  calling  each  routine.  SURGE  need  never  be 
initialized. 


Common  blocks: 


Input  variables: 


Status  variables: 


TRNPRT 


COMfiON/ALL/ 

COMMON /HONEY/ 

COMMON/PERFRM/ 

COMMON /NEWCOM/ 

COMMON/OL’JCOM/ 

COMMON/CONVEY / 

NAMELIST/BELTS/VBI,  WP,  AB,  ACM,  NGEO,  SM,  DTBS , 
QC,  FL,  XE,  NSURGE,  DWM,  DTC,  DTMB,  EE,  HP,  FLM, 
SMIN,  XLF,  WBI,  DMAINT 

LMCAPC 

LNSURG 

LMACON 

LNSPLC 

LNBYBY 

FQL 

FSM 


Subroutine  simulates  the  long  haul  of  muck  by  conveyor  belt  to  the 
discharge  area.  In  a  normal  entry,  loader  capacity  required  for  this 
time  step  is  calculated.  If  this  capacity  WR  is  less  than  the  available 
capacity  WPCOMP,  then  muck  is  loaded  and  excess  muck  in  the  surge  bin  is 
taken  out  and  loaded  onto  a  belt.  If  WR  is  equal  to  WPCOMP,  then  muck 
is  loaded.  If  capacity  WR  >  WPCOMP,  then  it  is  determined  if  a  surge 
bin  has  been  provided.  If  not,  the  excavator  is  scheduled  to  be  stopped 
on  the  next  cycle  (LMCAPC  *1).  If  a  surge  bin  exists,  the  excess  is 
loaded  into  it;  then  the  surge  bin  is  checked  for  overload.  If  it  is 
overloaded,  an  excavation  stop  is  scheduled  on  the  next  cycle  (IWCAPC  ■  1) . 


IV-  2  7 


In  anv  case  horsepower  u.-ieJ  is  determined  and  jno  mat'.' rial  cost 
DJMMH  is  incremented.  Then  the  control  program  is  ezazuted. 

EXTNSN  -  Extension  of  Conveyor  Belt  and/or  Structure 

This  routine  simulates  extension  of  the  conveyo'"  belt  (either  ex¬ 
tension  of  the  structure  and/or  extension  by  a  belt  splice).  In  a  normal 
entry,  first  a  check  is  made  to  determine  whether  the  extersion  is  shut 
down  (NEXON  =  1).  If  it  is,  then  a  return  to  the  control  program  is 
executed.  If  the  extension  is  not  shut  down,  a  check  determines  if  a 
structural  extension  is  needed.  If  yes,  the  extension  is  carried  out 
for  whichever  of  the  three  geometries  (NGEO  =  1,  2,  3)  (cyclic  oi  one  of 
two  continuous)  is  being  used;  if  it  will  be  completed  at  the  enu  of  the 
time  step,  the  end  is  scheduled  by  setting  LNBYBY  =  O’,  jLlien^ise  LNBYBY 
is  set  to  1,  Another  check  is  made  to  determine  if  a  belt  splice  is 
also  needed,  and  LNSPLC  set  to  1  if  it  is  needed.  Then  the  belt  splice 
as  described  below  is  computed  for  the  time  remaining  in  time  step. 

If  at  normal  entry  a  conveyor  belt  splice  is  going  on,  a  check  is 
made  to  determine  if  a  surge  bin  hao  been  provided.  If  a  bin  does  not 
exist,  the  belt  splice  is  simulated  and  the  excavator  is  turned  off  if 
the  splice  is  not  complete  at  end  of  the  time  step  (I.NEPLC  =  1).  If  a 
bin  does  exist,  the  excavator  is  turned  off  only  if  the  surge  bin 
becomes  overloaded  (LNSURG  =  1). 

BELT  -  Maintenance 

This  subroutine  simulates  maintenance  of  the  conveyor  belt.  In  a 
normal  entry  a  check  is  made  to  determine  whether  maintenance  is  in 
progress  (MACON  =1).  If  no  maintenance  is  in  progress  then  a  check  is 
made  for  which  criterion  is  being  used  for  maintenance,  time  (DTCB)  or 
volume  of  muck  loaded  (DWM).  For  whichever  criterion  is  being  used  a 
calculation  is  made  to  determine  if  maintenance  is  required.  If  mainte¬ 
nance  is  needed  then  it  is  scheduled  for  the  next  time  zycle  by  setting 
L MAC ON  =  1  and  the  subroutine  does  calculations  fci  maintenance.  If  at 
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entry  maintenance  was  in  progress,  or  if  the  belt  has  been  put  into 
maintenance,  one  time  step  is  subtracted  from  maintenance  time  left  and 
a  check  made  to  determine  if  maintenance  is  complete.  If  so,  it  is 
scheduled  to  end  in  the  next  cycle  (LMACON  =  0)  and  the  cost  of  mainte¬ 
nance  is  added  to  the  job  materials  costs  DJMMH. 

SURGE 

This  subroutine  handled  adding  muck  to  and  subtracting  muck  from  the 
surge  bin.  It  is  called  by  the  other  conveyor  belt  routines  if  a  surge 
bin  exists  (NSURGE  -  1) .  It  has  one  entry  point  SURGE  for  adding  to  the 
bin  and  one  for  subtracting,  SURGE  2.  When  adding  muck,  a  flag  will  be 
set  to  indicate  overloading  of  the  bin  if  this  occurs  (LNSURG  =  1) . 

3.  Type:  Trucks 

This  set  of  routines  simulates  long  haul  of  muck  to  the  discharge 
area  by  trucks.  The  routines  in  the  set  are  TRUKHL,  RAILEX,  TRUKDS , 

TRUKMT .  TRUKHL  is  almost  identical  to  RAILHL  described  in  Sec.  II-D-1 
(see  Vol.  I  of  this  report  for  exceptions).  The  routines  TRUKEX ,  TRUKDS, 
and  TRUKMT  are  actually  the  routines  RAILEX  and  RAILDS  described  in  Sec. 
II-D-1  with  different  entry  points.  Subroutine  TRUKHL  is  identical  to 
RAILHL  with  the  exception  of  some  coding  to  ensure  that  the  truck  stops 
before  it  hits  the  face.  This  coding  is  identified  in  the  listing  by 
comment  cards.  TRUKHL  is  the  initialization  entry  point  and  IRUKTR  is 
the  normal  entry  point  into  the  routine. 

Common  blocks:  Identical  to  those  for  rails 

Input  parameters:  NAMELIST/TRUCKS/parameters  are  identical  to  those 

for  rails 

Status  variables:  Identical  to  rails 

E.  ELEMENT:  GROUND  SUPPORT 


!•  Type:  Rock  Bolts,  Shotcrete,  Steel  Sets,  and  Combinations  of  These 
Unlike  other  elements  which  have  a  different  set  of  routines  for 
each  type,  all  ground-support  types  are  handled  in  one  set  of  subroutines 
(GRNSUP ,  GSMAIN) .  Ground  support  frequently  uses  combinations  of  support 
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types,  making  it  more  efficient  to  put  all  typos  in  one  set  of  subrou¬ 
tines.  The  decisions  about  type  of  ground  support  to  be  used  for  each 
geology  during  the  simulation  are  made  with  the  aid  of  a  primary  ground- 
support  table  (stored  in  array  PSST).  This  table  may  be  input  by  the 
user,  or  the  default  table  (Table  IV-1)  will  be  used.  Any  primary  ground- 
support  table  gives  the  major  and  minor  support  types  and  their  spacing 
(or  thickness)  for  different  rock  fragmentation  methods  (JMETH) ,  and  for 
ranges  of  rock  densities  (RDQ) .  For  instructions  on  inputting  the 
default  table,  see  below. 

ommon  blocks:  COMMON/ALL 

COMMON  /  P  ERF  R  '■i  / 

COMMON/MONEY/ 

COMMON/OLDCOM/ 

COMMON/NEWCOM/ 

COMMON/ GRND/ 

Status  variables:  LMGS(5) 

LIEXCA 

Input  variables:  NAMELIST/GROUND/USC ,  UCSC,  RATERB,  RATESC ,  GSETDO 

RATESS,  MAXPSS,  ERBDRI ,  GDOW,  ESCPLA,  DJMGS , 

GMEN ,  GCST 

A  set  of  cards  must  be  input  for  the  ground  support  if  MAXPSS  ^  0 
in  the  set  of  cards  described  above.  In  this  case  the  user  is  indicating 
that  he  wishes  to  input  his  own  primary  ground-support  table  in  preference 
to  the  default  table  (Table  IV-1).  See  INPUT  routine  written  for  the 
Layout  Tunnel  for  an  example  of  one  method  of  reading  in  these  cards. 

A  sample  set  of  cards  is  shown  in  Fig.  IV-3.  The  value  of  MAXPSS  in  the 
set  of  cards  above  should  be  equal  to  the  number  of  these  cards.  The 
columns  on  the  cards  correspond  to  the  columns  in  Table  IV-1.  These  data 
cards  are  the  last  set  of  input  cards  for  the  model,  and  cards  should  be 
ordered  such  that  the  ROD  column  is  decreasing  on  successive  cards.  The 
cards  give  the  type  of  support  that  will  be  used  for  various  ranges  of 
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rock  RQD  and  type  of  rock  fragmentation.  Each  card  Input  gives  a  major 
and  additional  support  type  to  be  used  for  one  rock  excavation  process, 
and  any  rock  RQD  greater  than  or  equal  to  the  one  on  the  card  but  less 
than  the  one  on  the  previous  card. 

The  codes  for  the  rock  excavation  type  to  be  put  on  the  card  are 
as  follows: 


P>ock  Excavation  Type 

Boring  machine 
Drill  and  blast 
Water  jet 
Projectile 

To  be  used  if  actual 
type  is  not  in  table 


The  codes  for  support  types  and 
follows: 

Support  Type 
None 

Rock  bolts 
Shotcrete 
Steel  sets 
Lagging 


The  other  parameters 


Code 

1 

2 

3 

4 

5 


additional  support  types  are  as 


Code 

1 

2 

3 

4 


on  each  card  are  as  follows: 

Unsupported  Length  -  Maximum  Feet 

This  is  the  maximum  number  of  feet  from  the  heading  that 
ground  support  can  be  before  the  excavator  must  be  turned 
off  to  allow  ground  support  to  catch  up. 

Interference  Length  -  Feet 

Number  of  feet  that  must  separate  ground  support  and  the 
heading.  Ground  support  will  not  be  allowed  closer  to  the 
face . 
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3.  Spacing  -  Feet 

This  will  be  7*0  only  if  rock  bolts  or  steel  sets  are  being 
used  as  support  or  additional  support.  Lt  gives  the  spacing 
between  rock  bolts  or  steel  sets. 

4.  Thickness  -  Inches 

This  is  the  thickness  of  the  shotcrete  to  be  installed  and 
is  only  if  shotcrete  is  being  used. 

5.  Crown  and/or  Sides 

This  is  if  shotcrete  not  being  used  or  if  only  crown 
is  to  be  covered.  If  crown  and  sides  are  to  be  covered  it 
is  "1 . 

GRNSUP  -  Ground- Support  Installation 

In  a  normal  entry  (ENTRY  GROUN) ,  ground  support,  using  the  rock 
density  (RQD)  and  the  rock  fragmentation  method,  computes  the  ground- 
support  parameters  for  this  time  step  from  the  primary  ground-support 
table  (PSST) .  Checks  are  made  to  determine  the  ground-support  status 
and  position  with  respect  to  the  face  of  the  tunnel.  Labor  time  used  is 
incremented.  For  each  type  of  support  being  used  the  amount  of  material 
needed  is  computed.  The  cost  and  advance  of  ground  support  is  calculated 
(either  actual  or  lost  due  to  idleness  or  maintenance).  Finally, 
operating  time  and  plant  and  equipment  costs  are  incremented. 

GSMAIN  -  Ground- Support  Maintenance 

A  normal  entry  to  this  routine  (ENTRY  GSMNT)  first  determines  if 
a  combination  of  types  is  being  used.  If  yes,  then  the  time  step  is 
divided  by  2.  Then  for  each  of  the  five  ground-support  types  it  asks  if 
the  type  is  being  used.  It  then  asks  if  the  type  (in  use  or  not)  is  in 
maintenance. 
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If  the  type  is  in  maintenance,  the  maintenance  time  remaining  for 
the  type  is  reduced  by  one  time  step  and  if  no  time  remains  it  is  marked 
to  be  removed  from  maintenance  in  the  next  time  step. 

If  the  type  is  not  in  maintenance  and  not  in  use  the  next  type  is 
looked  at.  If  it  is  not  in  maintenance  and  in  use,  then  one  time  step 
is  subtracted  from  the  time  remaining  before  maintenance.  If  the  time 
remaining  is  0,  the  ground-support  type  is  marked  to  be  put  into  mainte¬ 
nance  for  the  next  time  step. 

F.  ELEMENT:  ENVIRONMENTAL  CONTROL 

1.  Type:  Ventilation,  Cooling  Plant,  and  Water  Removal 

One  subroutine  (ENVIR)  simulates  the  environmental  control.  The 
environmental  element  is  assumed  to  need  no  maintenance  and  to  always  be 
operating.  It  is  assumed  also  to  not  interfere  with  other  elements  in 
the  tunneling  process  and  therefore  has  no  status  variables. 

Common  blocks:  COMMON/ ALL/ 

C0MM0N/PERFRM/ 

COMMON/MONEY/ 

COMMON /ENVC/ 

Input  variables:  NAMELIST/ENVIRC/EVENTP,  MAXMEN,  TDTHP,  QM,  QD, 

VAMIN,  VAMAX,  TA,  TD,  WA,  FKD,  FKT,  CPA,  CKA, 
REFRAT,  PR,  AMC(10),  CAVMP 

ENVIR 

In  a  normal  entry  (ENTRY  ENVIRC)  labor  time  used,  plant  and 
equipment  costs,  and  operating  time  are  incremented.  Next  the  cost  of 
pumping  water  is  computed.  Then  the  amount  of  heat  added  to  the  air  from 
various  sources  is  computed;  then  the  velocity  of  air  is  checked  if  more 
cooling  is  needed.  Finally,  the  amount  of  cooling  and  ventilation  needed 
in  this  time  step  are  calculated.  Cost  of  cooling  and  ventilation  are 
added  to  Job  materials  costs  for  environmental  control  DJMEC. 
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G.  INPUT  ROUTINE 

This  subroutine  was  written  for  the  Layout  Tunnel  (see  Vol.  I). 

It  is  described  here  as  a  sample  of  possible  way  of  initializing  data 
in  the  model.  It  can  easily  be  modified  and  used  with  any  control  pro¬ 
gram  written  to  model  other  excavation  systems.  The  routine  is  called 
at  the  beginning  of  a  run  and  will  read  in  the  input  cards  for  the  sub¬ 
routines  and  initialize  the  geology  parameters  by  reading  in  the  first 
geology  record.  It  has  two  entry  points,  INPUT  AND  INPUT  2. 

Common  blocks:  All  common  blocks  that  the  control  program  contains. 

ENTRY  INPUT  Reads  in  cards  and  starts  geology  file. 

First  cards  are  read  and  their  images  written  onto  tape  (LOGICAL  unit  5 
in  present  control  program;  see  listing  of  INPUT  in  Appendix  II),  card 
images  being  printed  out.  When  an  end-of-file  is  encountered,  tape  5  is 
rewound. 

After  the  rock  fragmentation  and  materials  handling  methods  have 
been  read  in  from  the  first  card  image,  tape  5  is  read  by  the  various 
NAMELISTs.  Note  that  the  card  sequence  of  NAMELISTs  m-.sr.  be  the  same  as 
the  reading  sequence  because  the  READ  statement  will  search  through  the 
NAMELIST  images  on  tapes  for  the  first  one  to  be  read  and  then  search 
subsequent  ones  for  the  next,  and  so  on.  Therefore  if  NAMELIST  BORE 
appears  on  the  cards  before  GENERL,  BORE  will  never  be  read  because  in 
INPUT,  BORE  is  read  after  GENERL. 

After  all  AMELISTs  which  were  found  on  tape  S  have  been  read  and 
printed  out,  the  first  record  on  the  geology  file  is  read.  This  is  not 
necessarily  the  starting  point  in  the  tunnel  for  the  model  but  merely 
starts  the  geology  file.  (This  file  is  described  in  Appendices  II  and 
HI.)  Then  the  cross  section  of  the  tunnel  is  computed  and  the  local 
variables  used  to  read  in  train  status,  position,  speed,  and  maintenance 
times  are  set  into  a  global  array  TSTAT (J ,  K)  (equivalent  to  ITSTAT 
(J,  K)).  From  train  status  it  is  also  determined  which,  if  any  train  is 
available  for  loading.  Finally,  if  a  primary  ground-support  table  is  to 
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be  read  in  (MAXPSS  +  0) ,  it  is  read  from  cards  in  fixed  format  (see  listing 
of  INPUT  in  Appendix  VI). 

ENTRY  INPUT  2 

This  routine  is  entered  at  this  entry  point  after  all  subroutines 
included  in  the  run  have  been  initialized.  Variables  which. can  be  initial¬ 
ized  (those  on  NAMELISTs)  are  again  printed.  Those  that  were  undefined 
by  the  user  will  have  been  given  default  values  by  the  individual  routines. 
See  Appendix  VI  for  a  sample  printout  of  the  routine. 

H.  OUTPUT  ROUTINES 

These  four  routines,  OUTPUT,  REPORR,  REPORC,  and  MAXADV,  were 
written  for  the  Layout  Tunnel.  Two  of  the  routines  produce  the  interim 
reports  using  variables  which  are  computed  in  the  element  subroutines. 

A  third  prints  out  the  working  storage  common  variables  necessary  for 
restarting  the  model  at  an  intermediate  point  in  the  tunnel.  Finally, 
a  fourth  routine  computes  the  advance  each  day  and  retains  the  maximum 
daily  advance.  These  routines  may  be  easily  modified  and  used  with 
another  control  program  to  produce  output.  The  last  three  routines, 

REPORR,  REPORC,  and  MAXADV,  may  be  used  without  modification  if  the  notes 
in  Sec.  Ill  of  this  appendix  are  followed. 

Common  blocks:  (for  OUTPUT)  All  common  blocks  in  control  program 

(for  REPORR,  REPORC,  MAXADV)  COMMON/ALL/ 

COMMON/MONEY 
COMMON /PERFRM/ 

COMMON/LABOR/ 

COMMON /TEST/ 

Input  variables:  Contained  in  NAMELIST/GENERAL 
REPORT,  DTPRNT 

OUTPUT 

This  routine  must  be  modified  by  the  user  if  he  is  simulating 
tunneling  with  different  methods  than  those  in  the  sample  program. 


It  is  essentially  a  printout  of  selected  variables  in  various  common 
blocks  which  give  the  user  a  picture  of  the  status  of  the  t..r,neling 
elements  at  intervals  during  a  simulation  and  at  the  end  r  a  run.  It 
should  contain  the  variables  needed  to  restart  the  model. 

At  present  it  prints,  besides  general  variables,  status  variables 
for  the  boring  machine,  integrated  conveyor  loader,  rails,  and  ground 
support.  These  are  the  processes  being  used  in  the  sample  tunnel,  and  the 
variables  needed  to  restart  the  tunneling  at  any  time  or  heading. 

MAXADV 

The  advance  per  operating  hour  is  computed  for  the  past  24  hours 
elapsed  time.  If  it  is  greater  than  the  maximum  advance  already  saved, 
then  it  becomes  the  maximum  advance  and  is  retained  as  such. 

REPORR 

This  routine  prints  out  the  interim  performance  reports  giving 
cumulative  time,  advance,  (since  beginning  of  this  run)  and  heading 
position,  maximum  daily  advance  values,  (since  beginning  of  run)  and 
utilization  and  availability  figures  for  each  general  process. 

REPORC 

Routine  prints  out  cumulative  costs  since  beginning  of  run.  Total 
costs  and  costs  for  each  general  process  are  printed  out. 


Subroutine  REPAIR 


EJWRY 

MAIN? 


SCHED. 
MAINT. , 
MBM-1, 
COMPUTE 
COST 


SCHEDULE 
RETURN  FROM 
MAINTENANCE 
MBM  -  0 


SET  TIME  BETWEEN 
MAINTENANCE  DTC, 
MAINTENANCE 
TIME  DTM 


INITIALIZATION 

ENTRY 


NORMAL 

ENTRY 


3 

• 

SET  LOCAL 
VARIABLE  FOR 
TIME  BETWEEN 
MAINTENANCE 
_ TIME  -  DTC _ 

_ _ 3 

t 

SET  REPAIR 

FLAG  OFF 

MBM  -  0 

3 

t _ 

ADD  DT 

TO  MAINTENANCE 
TIME  NOT 
COMPLETED 


|  SUBTRACT  DT  | 
PROM  TIME 
REMAINING 
SINCE  LAST 

[maintenance! 
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1  - - -  PKa-n,,;- 


Subroutine  JETIMP 


7. trip  our  LiX'i 


VAPil  AJ1]  F 


lAtMWNT  til'l.U- 
TSiti  COST 
it7  !?iit  L'l 


a  |  i  _jl  l  "  ■  ■■  j  ■.  i 

umkd.tju  n'^w- 


xill  ETAI5D' 


CD.'Bma  AMiJiamfr 

mu  oi  r 

.UJlk  PCET 
MfVAKCJE 


SfX  LM.*iflJ 

TO  Uirj.uu 

vai.i;]; _ 


A  Li  IN 
iiIELT/0 


fAJ-ttffcMfK 

MLfiJIi.!. 

roll  CPTTU' 

TAT  I  tyl' 


!i  L'.T  UrltGJ 

in  hi  r-fttrii 


Vfl5.UK 


VZtK 

iVL^WILt 


arriAiiiAtu 

flNE  1HIT  -  I 


'  MAINTENANCE 
■JN  PROGRESS. 


SUBTRACT  TIME 


SET  DTMJET  -  2 


Subroutine  JETMNT 


INITIALIZATION  ENTRY 
FOR  WATERJET 


INITIALIZATION  ENTRY 
FOR  PROJECTILE 

/MTi A 


I  NORMAL  ENTRY 
rtiim  /  projectile 


pmei 
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NORMAL  ENTRY 
FOR  WATERJET 


ADD  TIME  STEP 
(Dl)  TO  MAINT. 
TIME  ELAPSED 
TMNT 


SCHEDULE  MAINT 
LMWJM  -  0 
MWJ  -  LMWJ  +  1 


SET  TEMP.  MAIN! 
VARIABLES  TONT, 
TIMBT 
TURN  OFF 


Subroutine  JETAGN 


INITIALIZATION  ENTRY 
TOR  WATER.) KT 

INITIALIZATION 
/ffiTMf  \  ENTRY  FOR 
\jrVMIN  /  PROJECTILE 


NORMAI  ENTRY 
FOR  VJ/.TERJET 

l 


lUITIMrllAtfCi* 


NORMAL  ENTRY 
FOR  PROJECTILE 

^Tin\ 

- - !  I'hJl'u:. 


TURN  OFF 
REPOSITION 
FLAG  HUJR 


SET 

DTRJET  -  .25 


iit  V  w 
dTERAT  PUG  > - 


■M  \  \  ;iniii: 


ADD  ONE  TIME 
STEP  (DT)  TO 
ELAPSED  REPO¬ 
SITIONING  TIME 


CALCULATE  DIS- 
1ANCE  TRAVELED 
SINCE  LAST 
REPOSITIONED 
(DISTJ) 


llOJ--5[TTAHCI 

TllAR 


SCHEDULE  REPO¬ 
SITIONING  LMWJ" 
UWJ  +  I 
LMWJR  -  0 


IMnSM.N.ATi- 

\ 


sJINUHKk#'" 


SCHEDULE  END 
OF  KF.POSI- 
TIONING  LMWJR” 
1  LMWJ-LMWJ-1 
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Sub  routine  PROJTL 


NORMAL 

ENTRY 


SET  ETAGN  -  .3 


SET  ETAIPT  -  .2 


INITIALIZATION 

ENTRY 


^X-MITTING^^ 
ENERGY  TO  ROCK 
FFICIENCY  READIN 
^ETAIPTjlO 


YES 


COMPUTE  ROCK 
FRAGMENTED  PER 
PROJECTILE 


INCREMENT  JOB 
MATERIALS  COSTS 
FOR  ROCK 
DISINTEGRATION 
DJMRD 


COMPUTE  FACTORS 
USED  FOR 
COMPUTATIONS 


COMPUTE  POWER 
COSTS  (PCST) 
PROJECTILE 
COSTS  (?JCSI) 


ZERO  OUT  LOCAL 
VARIABLES  TO  BC 
COMPUTED  IN  TIME 
STEP,  FDV,  FDX 


PROJECTILE 

•^OPERATING 


YES 


COMPUTE  ROCK 
FRAGMENTED 
FDV,  FDX 


COMPUTE  HEAT 
GENERATED  FHEATF 
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WMMamm.  _  1  teSi" '(IS'fti  >1 

vvmr&m  mm 


Subroutine  PRJBR 


TLEPLACEHEHT 
WOT  FINISHED 

■^rasi<rr  ^ 


REPLACEMENT 
PPTIM>DLT  > 


;pas  itiomli 

GUNS 

KHJf-O  > 


INCREMENT  JOB 
MATERIALS  COST 
DJMRD 


LCULATE  COST 
OF  REPLACING 
ALL  BARRELS 
CFACT 


YES 


YES 


SCHEDULE  BARREL 
REPLACEMENT 
LNBARL  -  0 
LMPI  -  LMPI  +  1 


NORMAL 

ENTRY 


Pkjsa 


NIT  LAL  I7,iVf  10 
DONE  ^ 


"  BARREL 

KING  ItEPLAC 


INCREMENT  TIME 
FOR  REPLACEMENT 
TBR  *  TBR  +  DT 


SCHEDULE  END  OF 
REPLACEMENT 
LNBARL  -  1 
REDUCE  REASONS 

WP&QHWl 


INITIALIZATION 

ENTRY 


ENTRY 

PHJ6F, 


CALCULATE  TIME 
TO  REPLACE  ALL 
BARRELS  TT 


ZERO  OUT 
REPLACEMENT 
{TIME  TBR,  &  TIME 

Between  replace¬ 
ments  OPTIM 


INCREMENT  TIME 
BETWEEN  REPLACE¬ 
MENTS  (OPTIM) 
BY  TIME  STEP 
(DT) 


TURN  BARREL 
REPLACEMENT  FLAG 
OFF  NBARL  =  1 
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NORMAL  ENTRY 


fcs-Tn.v 

BVKIH 


N  [T1AJ-I 

:  jtjim  i^Sf 

JPfeuJ 


i  of  a?  -  so 


<TTLHE  W'fXi  111  >  >1 

fi 

SET  TIN  -  .25, 

SET  TEMPORARY 
VARIABLE  TT  -  TIN 

It 

' 

— 

t 

COMPUTE  DX,  DV 
USING  PRIMARY 
GROUND  SUPPORT 
TABLE  (PSST) 

.  _  _ 5 

f 

DECREASE  TT  BY 

ONE  TIME  STEP 

•Wile 
COMPLETED 
.  TT  '  . 


ni 


|  SCHEDULE  COMPLETIONl 
FOR  NEXT  CYCLE 
UUMIN  -  1 


Subroutine  MOV OUT 


NORMAL  ENTRY 
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Subroutine  SETCHG 
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Subroutine  MUKLOD 


U L  S 

P 

In 

1»!SS 

5 

saa; 

1 

"1  r 

.  T _ 

u  rt 

u  «  hi  K 
fckj-uvSiUri 
r:3J4*-  -J 

i»p 

_u _ . _ J 

Subroutine  MUKIN 


INITIALIZATION 

ENTRY 


NORMAL 

ENTRY 


I 
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Subroutine  MUKOUT 


INITIALIZATION 

ENTRY 


SET  TIME  TO  MOTE 
MUDLt.  jlS  OCT  - 
DEFAULT  VALUE  IF 
NOT  INPUT 
3IB0 


SET  LOCAL 
VAJUUU  Tin 
-  DTKO 


N ITT ALT 
.  ONLY 


NORMAL 

ENTRY 


laiTIALUATX 

HONE 


'MUO'ERS 
INC  MOVED 
V  OUT  . 


ftEOUCE  TIKE  TO 
MOVE  MUCKERS  iM 
TIM  AY  TIME 
STEP  TFT 


INDICATE  MUCKERS 
MOVED  tFUT  BV 
SETTING  UfllKDT  -I 
KE5ET  TIME  TO 
HOVE  MUCKERS  TO 
onto  joi  mrr  hove 


I 


9 


i 


t, 


1 
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Subroutine  RAILHL 


INITIALIZATION’  ENTRY  NORILAL  ENTRY 


Subroutine  RAILHL  (cont.) 


RAILTR  1  )  START 


LLTRAN  =  0 
LRETRN  =  0 


IST0P 


»2  (BRING  UP) 


DO  420  J  -=  1,  NT RAIN  I 


(CONTINUE)  I  DO  470  J  *  li  NT RAIN 


\  y0  TRAIN  J  IS 
-fsTfiSP  m  ALREADY  STOPPED 


'OjriJiIN  J  IS  NOT 
A  STOPPED 


.“10,  11 


-m  ontF.B 


<i«*ipur 


TRAIN  J  IN  \ 
DISCHARGE  AREA 
OR  IN  MAINT. 
AREA  _ _ 


JST0P(J)  “  0 


-ANY 

-0  /  \  OTHER 

E — <riSTATE(J.l>-+i 


f6TATI(J,lj 


■AH*  HtlllS 


ISTATE(J,l)-2 


|lSTATE(J,l)°3 


1ST  ATE  (J,  I) 


\J_NTRAIN 


1ST  ATE  (J 


,iw] 


ISTATE(J,l)»6l 


J>NTRAIN 


JCNTRAIN 
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J>NTRAIN 


ISTOJ  -  0 


lO'jfr] 


I  .  t  A1L(1  p.1) 


1  (LOADING,  AT  FACE) 


I’LEP 


Subroutine  RAILHL  (cont.) 


(  KA11.TK 

ISTATKd.l)  =  0) 

TRAIN  If.  ^rul'i’I-.n, 

r.'3'TY. 

V 

JSTOl’(I)  “  1  / 

A l  FACE,  l.OAf)! N-j . 

IV-  5  9 


Subroutine  RAILHL  (cont.) 


ISTATE(I.l)  =  Oi  TRAIN  IS  STOPPED,  EMPTY. 
JSTOP(I)  =  2  f  ANOTHER  TRAIN  STOPPED  AHEAD. 


RAILTR  ItkJ  ISTATE (1 ,1)  =  0  \  TRAIN  IS  STOPPED,  EMPTY . 

...  -  JSTOP(I)  -  3  f  ANOTHER  TRAIN  APPROACHING. 
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Subroutine  RAILHL  (cont.) 


(ratltr  7) 


I  ST  Alt  (1,1)  “  ll  TRAIN  IS  STOPPED,  WJX. 

J  STOP  (I.)  =  2  f  ANOTHER  TRAIN  STOPPED  AIM  AD . 


,D 


7) 
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Subroutine  RAILHL  (cont.) 


(railtr  T) 


ISTATE(I.l) 

JSTOP(I) 


TRAIN  IS  STOPPED,  FULL. 
WAITING  IN  DISCHARGE  AREA. 


Subroutine  RAILHL  (cont . ) 


AREA 
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Subroutine  RAILHL  (cont.) 


RAJLTR 


) 


I  SI  ATE  (1 ,3)  =  4  ~  TRAIN  IS  GOING  FULL  SI’ELt',  LXI’TY 


(rAILTR 


ISTATE(I.l) 


5  —  TRAIN  IS  GOING  FULL  SPEED,  FULL 


♦ _ 

CALCULATE  TPOS 
AND  POWER  USED 


(SEE  ISTATE  (1,1)  «  3) 
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TRAINING  IS  EMPTY  AND  DECELERATING 


Subroutine  RAILHL  (cont . ) 


Subroutine  ADDTRN 


icrv* 


su  12;  a 


l-dw^ 

WUJCJiU 

uOZV) 

HJ 


i 

3 


Subroutine  SURGE 


ENTRY  TO  ADD  MUCK 
TO  SURGE  BIN 


ENTRY  TO  SUBTRACT 
MUCK  FROM  BIN 


mINTKT 

sufuw 


jitNThY 

M 


OYEl  LOAIIE  Li 
v.  LTIStfROl 


SUBTRACT  MUCK 
QE  FROM  BIN 


F3TTK!l 


Subroutine  GRNSUP 


Subroutine  GSMAIN 


INITIALIZATION  ENTRY  NORMAL  ENTRY 
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Subroutine  ENVIR 


INITIALIZATION  ENTRY 

L.N\'  I 


NORMAL  ENTRY 


INITIALIZE  ALL 
VARIABLES  IN 
NAMELIST  NOT 

FJi AD  IN 

' 

CALCULATE  AIR 
VOLU.LE  RATES 
REQUIRED  USING 
VALUES  OF  NAME- 
LIST  VARIABLES 

3 

CALCULATE  DESIGN 
REQUIREMENT  AIR 
VOLUME 

RATE 

□  kl  !■ 

1 ' 

r. 

t.GNX. 

ZTJjjp^ S 

.. _ 3fc _ 

/PRINT  ERROR 
(  MESSAGE  ) 

\STOP  RUN  J 


YES 


I  INCREMENT  COSTS  DJMEC  | 
|BY  COST  OF  PUMPING  WATERj 


JL 


INCREMENT  PL,VNT  C, 
EQUIP.  COSTS  RD  PLANT, 
OP.  TIME  ECUTIME,  LABOR 
USED  TIME ECTlMEfl) 


CALCUl  ATE  VENT  DUCT  VUD- 
CITYVPUCT,  FPJCTRKICSS 
HTUN,  ViMT  DUCT  DIA-1E1LR  DU'CI 


I 


CALCULATE  FRICTION  LOSS 
OF  AIR  IN  VENT  HDUCT 


CALCULATE  AIR,  FAN  HP, 

r 

i  ni  r  i  h.i  u  LU  j  i 

DURING  DT  DJMEC 
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Subroutine  INPUT 


ENTRY  TO  READ  IN 


ENTRY  TO  PRINT 
P 


PRINT  OUT 
NAMELISTS  OF 
INPUT  PARAMETERS 
AFTER  INITIALI- 
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Subroutine  OUTPUT 


NORMAL 

ENTRY 
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Subroutine  REPORR 


INITIALIZATION 

ENTRY 


NORMAL 

ENTRY 


POSITION  AND 


ADVANCE  m 
DERATING  HOP* 


_ » 

PRINT  TIME, 
HEADING,  ADVANCE 
AND  MAXIMUM  DAILY 
ADVANCE  VALUES 


_ 4 _ 

FOR  EACH  GENERAL 
PROCESS  COMPUTE 
AVAILABILITY 
(OPTIM)  AND 
UTILIZATION  (USEUH 


_ * 

FOR  EACH  GENERAL 
PROCESS  PRINT 
OPTIM  USETIM 


J' 
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Subroutine  REPORC 


l 

I 

1 

] 

INITIALIZATION  HQKHAJ.  1 


„  / 

l  . 

vunriiTt 


cjruiArtrtc 


LfifijvTr 

(AD?*)  FDP  LAST 


iu-ul  grtuiTii; 


HI.  NOTES  ON  INCORPORATING  SUBROUTINES  INTO  A  CONTROL  PROGRAM 

In  writing  a  control  program  to  incorporate  any  routines  described 
in  Sec.  II  which  are  not  now  in  the  sample  control  program,  several  things 

must  be  kept  in  mind . 

A.  Status  variables  which  exist  in  a  new  and  old  form  must  be 
placed  in  NEWCOM  and  OLDCOM. 

B.  Common  blocks  which  are  needed  but  not  at  present  in  the 
routines'  decks  must  be  put  into  the  decks.  Also  any  common 
block  in  any  routine  must  be  put  into  the  control  program. 

C.  The  NAMELIST  which  is  to  read  in  the  input  variables  for  the 
routines  must  be  put  into  INPUT  if  the  INPUT  routine  is  going 
to  be  used  to  initialize.  Both  the  definition  of  the 
NAMELIST  and  the  calls  to  read  it,  write  it  on  tape,  and 
print  it  must  be  in  INPUT. 

D.  OUTPUT  must  be  changed  to  print  the  common  variables  associa¬ 
ted  with  the  processes  being  simulated. 

E.  Job  material  costs  computations  are  already  in  the  routine 
sets.  However,  computations  for  labor  costs,  plant  and  equip¬ 
ment  costs,  and  utilization  values  are  not  in  the  suoroutines. 
Procedure  to  add  these  three  is  as  follows: 

1.  Labor  costs  -  add  the  following  to  the  NAMELIST 
which  is  associated  with  routine  set: 

a.  Number  of  men  needed  in  each  of  1  to  10 
labor  categories 

b.  Hourly  cost  of  one  man  in  each  category 

The  variables  representing  these  parameters  are 
dependent  on  the  element  the  set  simulates : 

Rock  Fragmentation 

a.  BOMEN(lO)  b.  BOOST (10) 
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Materials  Handling  (Short  Haul) 


a.  RAMEN(IO)  b.  RACST(IO) 

Ground  Support 

a.  GMEN(IO)  b.  GCST(IO) 

Environmental  Control 

a.  VCMEN(IO)  b.  VCCST(IO) 

Next,  in  one  routine  of  the  set  accumulate  labor 
time  used  for  each  time  cycle  by  one  of  the 
following  statements  depending  again  upon  the 
element  being  simulated  by  the  routine  set. 

a.  Rock  disintegration 
RDTIME  -  RDTIME  +  DT 

b.  Materials  handling  (short  haul) 

HTIME(2)  -  HTIME(2)  +  DT 

c.  Materials  handling  (long  haul) 

HTIME(l)  -  HTIME(l)  +  DT 

d.  Ground  support 
GSTIME  -  GSTIME  +  DT 

e .  Environmental  control 
ECTIME  -  ECTIME  +  DT 

These  may  be  bypassed  by  checking  status  variables 
as  desired,  so  labor  costs  are  not  always  incre¬ 
mented.  The  computation  of  cumulative  labor  costs 
is  then  done  in  the  report  routines. 

Plant  and  equipment  costs  -  first  add  to  the 
routine  set's  NAMELIST  and  common  block,  variables 
for  costs  for  plant  various  types  of  plant  and 
equipment.  Each  cost  should  be  either  hourly  cost 


Next  add  a  statement  to  one  routine  in  the  set 
which  computes  the  cost  for  either  a  time  step 
(DT)  or  for  a  foot  advance  (DX)  and  cumulates 
the  cost  in  one  of  the  following  variables 
depending  on  the  element  being  simulated! 

a.  Rock  disintegration 
RDPLAN 

b.  Materials  handling  (long  or  short  haul) 
HPLANT 

c.  Ground  support 
GSPLAN 

d.  Environmental  control 
ECPtAN 

Again,  as  with  labor  costs,  the  computing  of 
cost  in  any  time  step  can  be  bypassed  by  a  check 
of  status  variables. 

Utilization  times: 

To  determine  utilization  values,  it  is  necessary 
to  compute  operating  time  and  down  time.  Then 
knowing  shift  time,  the  utilization  of  each  ele¬ 
ment  can  be  computed  in  the  report  subroutines 
according  to  the  formulas: 

,,  Shift  time  -  down  time 

Availability  -  shlft  Tlme 

Operating  time 
Shift  time 


Utilization 


Operating  time  and  down  time  must  be  cumulated 
in  each  time  cycle.  Status  variables  should  be 
used  to  determine  which,  if  either,  should  be 
added  to  in  each  time  cycle.  The  cumulating  is 
done  in  routines  of  the  set  for  each  process  being 
simulated.  The  variables  used  for  cumulating  the 
time  are: 

Operating  Time  Down  Time 


Rock  Fragmentation 

RDUTIM 

KDDTIM 

Materials  Handling 
(long  &  short  haul) 

UMHTIM 

DMHTIM 

Ground  Support 

GSUTIM 

GSDTIM 

Environmental 

ECUTIM 

ECDTIM 

Control 

NOTE:  Since  there  are  two  sets  of  routines  for  materials 
handling,  care  must  be  taken  in  computing  the  operating  time 
for  materials  handling  as  a  whole  to  avoid  double  counting. 
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IV .  GENERAL  REQUIREMENTS  FOR  THE  CONTROL  PROGRAM  LOGIC 

Figure  IV-4  represents  the  logic  for  a  control  program  to  coordinate 
the  tunneling  processes  simulated  by  the  subroutines.  That  figure  and 
this  discussion  are  given  to  assist  a  user  in  writing  a  control  program 
and  not  necessarily  to  be  rigidly  adhered  to. 

The  first  step  in  the  operation  of  the  control  program  is  to  read 
the  input  parameters  into  common  areas  and  read  the  first  geology  param¬ 
eters.  The  control  program  then  calls  each  subroutine  which  has  an 
initialization  entry  (see  the  flow  charts)  for  initialization  of  param¬ 
eters  not  read  in,  and  initializes  the  old  working  parameter  common 
(OLDCOM)  area  so  it  portrays  the  proper  initial  state  for  start  of 
processing. 

For  each  time  step  in  the  simulation,  a  check  is  first  made  as  to 
whether  the  tunnel  has  progressed  to  the  point  where  new  geology  informa¬ 
tion  is  needed.  If  this  is  the  case,  new  geology  information  is  read  into 
common  overlaying  the  old  information. 

Each  subroutine  is  called  for  its  normal  entry  point.  Note  that 
subroutines  for  one  element  (e.g.,  rock  disintegration)  may  be  order- 
dependent  and  should  be  ordered  as  they  are  listed  in  Fig.  IV-4.  The  order 
in  which  the  elements  are  cf lied  does  not  matter. 

After  all  routines  have  been  called,  the  resulting  information  in 

the  new  working  parameter  common  area  is  then  copied  into  the  old  working 

parameter  common  area.  Also,  heading  position  and  time  are  updated.  The 

A 

control  program  then  interrogates  the  flags  in  the  old-working-parameter 
common  area  and  determines  the  status  of  the  rock  disintegration  process 
in  the  next  cycle.  This  is  done  in  the  control  program  for  flexibility. 


Previously  called  status  variables. 
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Figure  IV-4.  Overall  Logic  of  a  Control  Program 
for  the  Tunneling  Model 
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READ  DATA  VALUES 
VEF  DEFAULT  VALUES 


The  rock  disintegration  process  is  the  lead  process;  it  determines  the 
heading  advance  and  the  muck  created.  Other  elements  follow  it  automa¬ 
tically,  given  its  progress.  The  rock  fragmentation  process,  however, 
must  be  informed  through  flags  set  by  the  other  elements  what  state  it 
should  be  in  (with  the  exception  of  its  own  maintenance) .  Looking  at 
these  flags  in  the  control  program  gives  the  user  more  flexibility  in 
determining  how  the  excavator  reacts  to  other  elements. 

The  control  program  also  handles  the  queuing  of  the  long-haul 
mater ials-handling  element  if  it  requires  queuing.  The  queuing  is  handled 
here  to  retain  the  order  independence  of  the  elements. 

The  control  program's  next  step  is  to  determine  whether  output 
reports  are  desired  at  this  point  and  to  call  routines  to  produce  them. 
Note  that  these  reports  can  be  spaced  in  any  desired  manner  with  respect 
to  time,  length  along  the  tunnel,  or  whatever.  There  is  no  restriction 
as  to  how  reports  are  generated. 

After  output  report  checking  is  performed,  a  check  is  made  to  deter¬ 
mine  if  the  model  should  be  ended;  this  would  usually  be  equivalent  to 
asking  if  the  time  or  Jistance  limits  input  have  been  exceeded.  If  this 
is  the  case,  the  simulation  is  ended  with  a  printout  of  working  common 
variables  needed  to  restart  the  model  at  the  heading  position  reached. 

If  the  simulation  is  not  to  be  ended,  another  time  step  is  started  by 
checking  to  determine  if  new  geology  parameters  are  needed. 

The  tunneling  activities  which  are  being  coordinated  by  the  control 
program  are,  as  previously  stated,  embodied  in  subroutines;  one  or  more 
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of  these  routines  made  up  a  process  such  as  boring  machine  rock  fragmen¬ 
tation.  In  any  simulation  one  and  only  one  process  for  each  of  the 
following  tunneling  elements  should  be  Included: 

1.  Rock  fragmentation 

2.  Materials  handling  (long  haul) 

3.  Materials  handling  (short  haul) 

4.  Ground  support 

5.  Environmental  control 

Descriptions  of  the  sets  of  routines  representing  the  processes  available 
for  each  element  are  given  In  Sec.  II. 

The  user  should  use  the  preceding  discussion  of  the  control  program 
as  a  guide  In  writing  his  own  program.  The  control  program  written  for 
the  Layout  Tunnel  which  actually  consists  of  several  subroutines  and  a 
control  program  Is  described  In  the  next  section  and  should  be  studied 
for  further  Information  on  writing  a  control  program. 
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V. 


CREATING  A  CONTROL  PROGRAM  FOR  THE  LAYOUT  TUNNEL 


As  mentioned  in  Sec.  I,  the  various  tunneling  activities  are  simu¬ 
lated  by  modular  subroutines.  The  simulation  of  an  entire  excavation 
project  can  therefore  be  made  by  using  a  building-block  technique. 
Ideally,  the  program  that  analyzes  a  given  project  would  consist  of  all 
the  subroutines  that  are  pertinent  to  the  simulation  and  a  driver  (main) 
program  that  ties  them  together.  The  subroutines  are  ideally  independent 
of  each  other  in  function  and  in  logic,  so  that  they  are  not  order-depen- 
dent  in  their  usage  by  the  main  program.  This  section  is  concerned  with 
the  construction  of  a  control  program  and  secondary  input  and  output 
routines  to  initialize  data  and  report  results,  and  discussion  will  be 
restricted  to  a  sample  control  program  that  simulates  the  excavation  of 
the  Strawberry  Aqueduct  Layout  Tunnel. 


A.  SUBROUTINES 

The  tunneling  subroutines  needed  for  the  Layout  Tunnel  simulation 
are  as  follows : 


Element  and  General 
Process 


Activity 


Subroutine  Entry 
Initialization/Normal 


Rock  fragmentation, 
boring  machine 

Bore 

Cutter  change 

Maintenance 

BORE/ BORER 
CUTTER/ CUTCHG 
REPAIR/MAINT 

Materials  handling, 
conventional  rail 
system 

Train  logistics 

Track  laying 

Discharge 

Train  maintenance 

Loading 

Loader  maintenance 

RAILHL/RAILTR 
RAILEX/ RAILXT 
RAILDS/RAILDS 
RAILMT/ RAILMT 
CVLOAD/LOADCV 
CVMNT/CVRPR 

Ground  support 

Rock  bolts,  etc. 

Equipment  maintenance 

GRNSUP/GROUN 

GSMAIN/GSMNT 

Environmental 

control 

Ventilation  and 
cooling 

ENVIR/ENVIRC 
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B.  SUBROUTINE  USAGE 

After  proper  initialization  of  data  (see  Sec.  V-D  below),  each 
excavation  subroutine  is  called  once  for  each  time  station  T.  The  time 
stations  are  equally  spaced  at  DT,  which  is  input.  Each  subroutine  cal¬ 
culates  the  progress  made  in  the  time  DT  and  sets  a  flag  indicating  the 
status  of  the  progress.  For  example,  CUTTER  calculates  the  incremental 
cutter  wear  for  the  time  DT  and  the  cumulative  cutter  wear  up  to  time  T. 

If  one  or  more  cutters  have  exceeded  the  maximum-wear  criterion  (an  input) , 
a  flag  LNCUTR  is  set  to  1.  Otherwise,  LNCUTR  is  set  to  0.  The  boring 
machine  is  then  turned  on  or  off  depending  on  whether  LNCUTR  is  zero  or 
nonzero.  As  another  example,  CVLOAD  simulates  the  muck  loading  activity. 
The  volume  of  muck  created  in  DT  depends  on  the  hardness  of  the  rock  and 
the  boring  machine  operating  characteristics.  At  the  end  of  DT,  the 
muck  is  assumed  loaded  onto  the  trains  via  the  loader.  If  the  train  is 
full,  it  is  sent  on  its  way  to  the  discharge  area,  and  another  train 
(if  one  is  available  in  the  load  queue)  is  moved  into  the  loading  area. 

A  flag  LOADR  is  set  to  0  in  this  rase.  If,  however,  there  is  no  train 
available  for  loading,  LOADR  is  set  to  1  which  indicates  that  the  boring 
machine  should  be  turned  off  until  a  train  becomes  available  for  loading. 

A  control  program  that  simulates  the  excavation  process  as  a  whole  must 
Interrogate  all  the  flags  (see  Table  IV-2)  set  by  all  the  subroutines 
and  then  decide  on  what  status  the  boring  machine  should  have. 

C.  CONTROL  LOGIC 

The  essential  features  of  the  control  logic  for  the  sample  control 
program  are  shown  schematically  in  Fig.  IV-5.  Note  that  the  rock  fragmen¬ 
tation  activity  BORE/BORER  is  controlled  by  the  flag  MBORE.  In  general, 
the  boring  machine  is  turned  off  any  time  any  of  the  support  activities 
cannot  keep  up  with  the  rate  of  advance  of  the  boring  machine  or  if  an;/ 
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TABLE  IV- 2 

DEFINITION  OF  FLAGS  SET  IN  EXCAVATION  MODEL 


SUBROUTINE 

BORE 


CUTTER 


REPAIR 


ASSMBL 


DISASM 


FLAG 

OPTIONS 

MBORE 

=  0 

normal  operation  -  boring  machine  going 

full  speed 

=  1 

boring  machine  in  maintenance 

=  2 

boring  machine  cutters  being  changed 

=  3 

mil  extension  rate  exceeded 

=  4 

new  switch  being  added 

=  5 

switch  being  moved  up 

=  6 

no  train  available  for  loading 

=  7 

ground  support  construction  rate  exceeded 

=  8 

loader  in  maintenance 

LNCUTR 

=  0 

normal  operation — no  cutter  change  needed 

=  1 

cutter  change  started 

=  2 

cutter  change  still  in  progress 

MBM 

=  0 

normal  operation — no  maintenance  needed  on 

boring  machine 

=  1 

boring  machine  due  for  maintenance 

MASSEM 

=  0 

normal  operation — boring  machine  assembly 

completed 

=  1 

boring  machine  assembly  in  progress 

MDISAS 

=  0 

normal  operation — boring  machine  disassembly 

completed 

=  1 

boring  machine  disassembly  in  progress 
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TABLE  IV- 2  (cont.) 

DEFINITION  OF  FLAGS  SET  IN  EXCAVATION  MODEL 

flag  options 

LSTOP  -  0  normal  operation — continue  system 

■  1  shut  down  system-external  reasons 

■  2  bring  up  system — external  reasons 

RAILDS  IFILD  -  0  normal  operation 

■  1  discharge  area  filled 

CVLOAD  LOADR  -  0  normal  operation 

■  1  no  train  available  for  loading 

CVMNT  LMCV  *  0  normal  operation 

■  1  loader  maintenance  in  progress 

CVMNT  LMFLAC  “  0  normal  operation 

-  1  loader  turned  off  for  external  reasons 

GRNSUP  IEXCA  «  0  normal  operation 

■  1  ground  support  construction  rate  exceeded 

RAILEX  NBYBY  ■  0  normal  operation 

»  1  rail  extension  rate  exceeded 

RAILEX  NSWCH  -  0  normal  operation 

■  1  new  switch  to  be  added 

-  2  switch  to  be  pushed  forward 

CVLOAD  IEXCAV  -  0  normal  operation 

■  1  borii  g  machine  turned  off,  loader  in  maintenance 


SUBROUTINE 

RAILTR 
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TABLE  IV-2  (coot. ) 

DEFINITION  OF  FLAGS  SET  IN  EXCAVATION  MODEL 


SUBROUTINES  RAILTR,  RAILDS ,  RAILEX 


LTSTAT  =  0 

=  1 
=  2 
=  3 

=  4 

=  5 

=  6 
=  7 

=  3 

=  9 

=  10 
=  11 


stopped,  empty 
stopped,  full 
accelerating,  empty 
accelerating,  full 
going  full  speed,  empty 
going  full  speed,  full 
decelerating,  empty 
decelerating,  full 
in  switch,  empty 
in  switch,  full 
in  discharge  area 
in  maintenance  area 


LKSTOP  =  0 

=  1 
-  2 
=  3 

=  4 

=  5 

=  6 
=  101 
=  102 
=  n 


not  stopped 

at  face,  being  loaded 

in  switch,  train  ahead 

in  switch,  train  approaching 

external  reasons 

in  switch,  waiting  to  enter  discharge 
in  switch,  waiting  to  enter  load  queue 
in  load  queue,  1st  in  line 
in  load  queue,  2nd  in  line 
in  load  queue,  (n-100)th  in  line 


0  no  train  in  load  area 

n  train  #n  is  in  load  area 


LLVHCL  = 


START 


EXECUTE  INPUT  AND 
TUNNELING  SUBROUTINES 
FOR  INITIALIZATION 


initialize  the  old 

WORKING  COMMON  AREA 
(COMQLD) 


<READ  IN  NEW 


is) 


EXECUTE  TUNNELING 
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SEQUENTIALLY 


COPY  NEW  WORKING 
COMMON  AREA  (COMNEW) 
INTO  OLD  WORKING 
COMMON  AREA  (COMOLD) 
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AND  TIME  (T) 
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Figure  IV- 5. 


Logic  of  the  Control  Program  for 
the  Layout  Tunnel 
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of  the  equipment  becomes  unavailable  because  of  maintenance  requirements. 
Note  also  that  the  boring  activity  is  not  resumed  unless  all  of  the  sup¬ 
port  activities  have  caught  up  with  the  rock  fragmentation  process.  In 
other  words,  boring  is  the  pivotal  activity  that  is  affected  by  all  the 
other  activities.  The  flag  MBORE  is  therefore  set  according  to  the  table 
shown  below. 


MBORE  CONDITION 

0  normal  operation:  boring  machine  is  going  full  speed 

1  no  advance:  boring  machine  is  in  general  maintenance 

2  no  advance:  boring  machine  cutters  are  being  replaced 


3 

shut-down  boring 

machine: 

rail  extension 

rate  has  been 

exceeded 

4 

shut-down  boring 

machine : 

a  new  switch  is 

being  added 

5 

shut-down  boring 

machine : 

switch  needs  to 

be  moved  up 

6 

shut-down  boring 

machine: 

there  is  no  train  available 

for  muck  loading 

7 

shut-down  boring 

machine: 

ground  support 

activity  has 

fallen  behind 

8 

shut-down  boring 

machine: 

muck  loader  is 

in  maintenance 

One  of  the  tasks  required  of  the  control  program  is  to  make  certain 
that  the  boring  machine  is  not  turned  on  unless  the  flags  from  all  the 
subroutines  indicate  that  boring  activity  should  be  turned  on.  This 
means  a  series  of  tests  must  be  made  of  the  flags  from  all  the  subroutines 
and  that  the  boring  machine  flag  MBORE  must  be  set  and  reset  in  accordance 
with  these  flags. 


Another  task  required  of  the  control  program  Is  to  move  the  trains 
up  In  the  load  queue  when  it  Is  time  to  do  soi  The  reason  that  this  task 
Is  given  to  the  control  program  Is  that  several  conditions  have  to  be 
satisfied  before  a  train  can  be  moved  up.  First  of  all,  the  train  that 
is  currently  being  loaded  must  be  full.  This  is  tested  in  subroutine 
CVLOAD.  Then  the  rail  extension  activity  must  be  able  to  keep  up  with 
the  boring  activity.  This  is  tested  in  subroutine  RAILEX.  Then  the 
installation  of  a  new  switch  must  be  complete  if  one  is  needed  before  a 
train  can  move  up  the  load  queue.  This  is  also  tested  in  subroutine 
RAILEX. 

A  third  task  required  of  the  control  program  is  to  insure  that 
RAILTR  is  called  before  any  of  the  other  rail  subroutines  which  include 
CVLOAD  and  RAILEX.  The  reason  for  this  requirement  is  that  RAILTR  is  the 
subroutine  that  controls  the  dynamics  of  the  trains.  Since  the  speed 
of  the  trains  is  on  the  average  several  orders  of  magnitude  greater  than 
the  rate  of  excavation,  a  time  interval  DT  compatible  with  the  excavation 
activity  would  be  too  great  for  the  rail  activity.  Therefore,  RAILTR 
divides  the  time  interval  DT  into  many  subintervals  such  that  no  train 
would  have  mcyed  more  than  50  feet  in  any  one  subinterval.  The  position 
and  the  speed  of  the  trains  can  thus  be  simulated  more  realistically. 

But  since  different  trains  would  be  doing  different  things  at  different 
subintervals,  the  only  way  to  keep  the  logic  tractable  is  to  update  the 
status  of  all  the  trains  at  the  end  of  DT:  i.e.,  the  status  flags  of 
all  the  trains  are  reset  at  the  end  of  DT.  Now  if  another  rail  subroutine 
is  called  before  RAILTR  and  if  that  subroutine  resets  the  flag  of  one 
of  the  trains,  that  result  would  be  nullified  by  RAILTR. 

A  last  task  of  the  control  program  is  to  produce  reports  by  calling 
output  routines  written  for  the  Layout  Tunnel  (REPORC,  REPORS,  and  OUTPUT) 
at  intervals  specified  by  the  user,  and  to  call  MAXADV  once  each  day  to 
determine  the  daily  advance  (see  Sec.  V-E  below). 
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D.  INITIALIZATION  OF  DATA 

The  initialization  of  data  for  the  simulation  is  handled  by  the 
control  program  and  a  subroutine  INPUT  written  to  accompany  the  control 
program.  Figure  IV-6  shows  the  initialization  sequence. 

Two  types  of  data  need  to  be  initialized: 

1.  Geology  parameters  which  give  the  geology  characteristics 
along  the  tunnel.  These  parameters  are  on  a  tape  (logical 
unit  40;  see  listings  in  Appendix  II).  See  Appendixes  II 
and  III  for  a  description  of  the  creation  of  this  tape.  The 
routine  INPUT  reads  the  first  parameters  from  the  tape.  Then 
the  control  program  tests  at  the  start  of  each  time  interval 
to  determine  if  a  new  set  of  parameters  is  needed.  When  one 
is  needed  the  control  program  reads  a  new  set. 

2.  Parameters  for  each  general  process  and  a  set  of  parameters 
which  apply  to  all  processes,  such  as  initial  reading,  initial 
time,  and  time  step  length.  These  parameters  are  read  in  at 
the  start  of  each  run  by  INPUT.  The  FORTRAN  NAMELIST  data 
reader  capability  is  used  by  INPUT  for  reading  in  the  cards. 

A  special  provision  is  made  for  reading  in  a  primary  ground 
support  table  (described  in  Sec.  II-E  above).  This  table  is 
read  in  on  cards  in  fixed  format  (9F8.2;  see  listing  in 
Appendix  II)  if  the  user  wishes  to  input  his  own  table. 

After  INPUT  has  read  in  all  parameter  cards,  the  control  program 
calls  each  general  process  subroutine  by  its  initialization  entry.  In 
each  routine  parameters  for  the  general  process  will  be  compared  to  0; 
if  found  equal  to  0,  they  are  then  given  a  default  value.  Parameters 
not  dealt  with  in  this  way  will  have  a  default  value  of  0  if  not  read  in. 
INPUT  then  prints  out  a  list  of  all  parameters  with  the  value  read  in  or 

the  default  value. 
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Figure  IV-6.  Initialization  Sequence  for  Layout  Tunnel 
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Finally,  the  control  program  initializes  the  working  common  area 
(OLDCOM)  for  the  first  time  step. 

E.  OUTPUT 

The  output  for  the  Layout  Tunnel  is  of  two  kinds:  (1)  a  printout 
of  common  variables,  and  (2)  interim  cost  and  performance  reports.  It 
is  handled  by  subroutines  which  are  called  by  the  control  program. 

1.  OUTPUT  -  prints  out  common  variables  from  the  various  subrou¬ 
tines  and  from  OLDCOM.  These  parameters  show  the  status  of 
the  different  general  processes  at  an  instant  in  time.  A 
sample  of  this  printout  is  shown  in  Fig.  IV-7 .  The  routine 
is  called  by  the  control  program  at  time  intervals  (DTPRNT) 
input  by  the  user.  It  is  also  called  at  the  end  of  a  run  to 
print  out  variables  to  be  used  for  restarting  the  model  at 
that  point. 

2.  MAXADV  -  The  routine  computes  each  day's  advance  and  saves 
values  for  the  maximum  advance. 

3.  REPORR  -  rints  cumulative  performance  figures  for  each 
element  (subsystem).  The  performance  figures  are  computed 
as  follows: 

Subsystem  availability  -  (shift  time  -  down  time)/shift  time 

Subsystem  utilization  =  operating  time/shift  time 

Shift  time  =  24  hours  in  Layout  Tunnel.  Can  be  input  by  user 
(TSHFT) 
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Figure  IV-7.  Printout  of  Working  Storage 


Down  time  and  operating  time  are  computed  in  subroutines  for  each  general 
process  and  cumulated  in  the  following  variables: 


Element  -  Subroutine 

Operating  Time 

Down  Time 

Rock  disintegration  (BORE) 

RDUTIM 

KDDi’IM 

Materials  handling  (CVMNT,  RAIIJ1L) 

UMHTIM 

DMHTIM 

Ground  support  (GRNSUP,  GSMAIN) 

GSUTIM 

GSDTIM 

Environmental  control  (ENVIR) 

ECUTIM 

ECDTIM 

The  status  variables  in  Table  IV-2  are  used  to  determine  in  each  time 
step  whether  the  element  is  operating,  down,  or  neither  (idle)  for  the 
time  interval  (DT)  in  the  following  manner: 


Element 

Down 

Action 

Taken 

Operating 

Action 

Taken 

Bor  Lng  machine 

MBORE  >  0 

and  MBORE  <  3 

RDDTIM  = 
RDDTIM  + 

DT 

MBORE  ==  0 

RDUTIM  = 
RDUTIM  +  DT 

Materials  handling 
r-'.ils,  conveyor 
loader 

NUMLD  =  0  or 
MCV  =  1 

DMHTIM  = 
DMHTIM  + 

DT 

NUMLD  *  0 
&  MCV  =  0 

UMHTIM  = 
UMHTIM  +  DT 

Ground  support 

MGS (I)  =  1 
where  I  is 
support  type 
using 

GSDTIM  = 

GSDTIM  + 

DT 

MGS (I)  =  0  GSUTIM  = 

and  ground  GSUTIM  +  DT 

support  can 

proceed 

(not  too 

close  to  face) 

Environmental 

Never 

Always 

ECUTIM  = 

control  ECUTIM  +  DT 

See  Sec.  Til  of  this  appendix  for  further  information  on  handling  avail¬ 
ability  and  utilization  values  for  simulation.  In  Fig.  IV-3  a  sample  of 
this  report  is  shown. 
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mwummt. 


SUBSYSTEM  UTILIZAT ION= (TOTAL  SHIFT  TIME-DOWN  TIME-IDLE  TIME) /TOTAL  SHIFT  Tl^E 

Figure  IV-8.  Interim  Performance  Report 


4. 


REPORC  -  prints  out  cumulative  cost  values.  The  cost  values 
are  computed  for  each  general  process  in  one  of  its  subrou¬ 
tines  (see  Sec.  Ill  above  for  a  description  of  variables  used). 
They  are  cumulated  in  parameters  in  C0.4M0N/M0NEY/ .  Totals  and 
overhead  costs  are  recalculated  each  time  REPORD  is  called. 

See  Fig.  IV-9  for  a  sample  of  the  cost  report. 

Both  REPORS  and  REPORD  (normal  entry  points  for  RE PORE ,  REPORC)  are 
called  at  time  intervals  specified  by  the  user  with  input  parameter 
REPORT. 
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Figure  IV-9.  Interim  Cost  Report 
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APPENDIX  V 


LAYOUT  TUNNEL  DATA 


by 

L.  M.  Pietrxak  and  W.  R.  Thomson 


1 


SUMMARY 


This  appendix  contains  data  'acquired  from  the  Bureau  of  Reclamation 
and  other  sources  concerning  the  first  5,038  feet  of  the  Layout  Tunnel,  a 
pert  of  the  Strawberry  Aqueduct  Project.  The  tunnel  was  driven  between 
June  25  and  September  22,  1971.  Geological  reports,  machinery  specifica¬ 
tions,  and  progress  records  are  Included. 
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I.  EQUIPMENT  AND  SYSTEM  DESCRIPTION 

The  Layout  Tunnel  is  a  part  of  the  Strawberry  Aqueduct  Project  and 
was  driven  in  the  summer  of  1971  near  Heber  City  Ltah.  S.  A.  Healy 
Company  is  excavating  Layout  and  Currant  Tunnels  with  a  Robbins  Co. , 

Model  No.  141-127-1,  excavating  machine  ("the  male")  previously  used  to 
excavate  a  tunnel  in  the  Chicago,  Illinois,  area.  The  machine  was  re¬ 
built  and  modified  by  Robbins  Company,  651  S.  Orcas,  Seattle,  Washington. 
The  first  section  arrived  at  the  work  site  May  24,  and  the  mole  was 
assembled  during  the  rest  of  May  and  June  near  the  outlet  portal  of 
Layout  Tunnel.  Approximately  1,670  man-hours  were  used  to  assemble  the 
machine,  which  is  45  ft  long  and  weighs  approximately  200,000  lb.  The 
last  shipment  of  the  integrated  conveyor  loader  was  delivered  to  the 
site  at  the  end  of  July  1971. 

The  mole  cuts  a  12  ft  11  in.  diameter  tunnel.  The  rotating  head 
consists  of  a  center  tri-disc  cutter  with  a  series  of  29  disc  cutters. 

The  tri-disc  center  cutter  is  a  cluster  of  three  disc  mounted  on  one 
shaft.  The  cutters  are  numbered  from  the  center  out.  The  cutters  are 
spaced  radial  as  follows:  cutters  No.  1  through  8,  2-7/8  in.;  cutters 
No.  9  through  21,  2-3/4  in.;  cutter  No.  22  is  2-11/16  in.  from  No.  21; 
cutter  No.  23  is  2-1/2  in.  from  22;  cutters  No.  24  through  27  are  spaced 
at  2-1/8  in.;  cutter  No.  29  is  spaced  at  1-1/4  in.  from  No.  27  and  gage 
cutter  No.  29  is  1-1/4  in.  from  No.  28. 

The  maximum  thrust  on  the  head  is  892,000  lb  with  a  propel  pressure 
of  3,500  psi.  The  thrust  rating  for  each  of  the  four  drive  arms  is 
223,000  lb  at  3,500  psi.  The  contractor  has  operated  with  propel  pressure 
between  1,800  and  2,600  psi. 

The  mole  is  powered  by  six  100  hp,  CJ5NB  Pacemaker,  440  volt  elec¬ 
tric  motors.  These  motors  create  a  rated  torque  of  630,240  ft’lb. 
Electricity  is  delivered  to  the  mole  at  7,200  volts  and  transformed  to 
440  volts  through  a  transformer  located  at  the  rear  of  the  mole.  Elec¬ 
tricity  to  operate  the  mole  is  obtained  from  commercial  supplier,  Moon 

Preceding  page  blank 
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Lake  Electric.  The  mole  is  held  In  place  while  excavating  by  two  hydrau¬ 
lic  powered  side  grippers,  immediately  behind  the  cutler  head. 

The  excavated  material  was  hauled  from  the  tunnel  to  an  800  ft 
long  dump  site  located  12,000  ft  from  the  outlet  portal.  Three  trains 
of  ten,  6  2/3  yd3  (struck)  side  dump  cars,  pulled  by  two  10-ton  diesel 
powered  Plymouth  Mine- o-motive,  GA-24,  Model  DMD-24  locomotives  were 
used.  The  track  gauge  was  24  in.,  and  rail  weight  65  lb  per  linear  yard. 

The  mucking  equipment  included  an  integrated  24  in.  troughed  belt 
conveyor,  and  a  California  switch  for  train  switching  that  extended  765  ft 
behind  the  boring  machine.  This  configuration  is  shown  schematically  in 

Fig.  V-l. 

The  normal  sequence  for  loading  and  muck  removal  starts  with  three 
trains  in  the  loading  area,  i.e.,  one  in  the  loading  position,  and  the 
others  waiting  in  the  California  switch.  Once  loaded  the  first  train 
departs  for  the  discharge  area,  and  an  empty  train  moves  into  the  loading 
position.  Thereafter,  at  any  given  time  one  train  would  typically  be 
loading  while  one  is  waiting  to  be  loaded  and  the  third  is  on  its  way  to 
the  discharge  area  for  dumping.  The  cars  returning  from  the  discharge 
area  carry  men  and  materials  to  the  face  as  needed. 

Other  than  the  California  switch  at  the  face,  there  are  no  switches 
between  the  discharge  area  and  the  near  face  zone.  Only  one  train  can 
occupy  the  track  between  the  loading  and  discharge  area  at  any  given 
time.  This  situation  applies  for  the  first  8650  ft  of  tunnel  which 
includes  the  entire  segment  being  considered  for  computer  simulation  at 
this  time. 

In  the  discharge  area,  each  muck  car  is  dumped  individually  using 
side  dump  equipment  that  runu  on  a  track  parallel  to  the  main  line  track, 
dumping  each  car  as  it  proceeds. 
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Dust  removal  and  ventilation  Is  accomplished  by  drawing  air  from 
the  near-face  loading  and  working  area  (17,000  cfm  at  2405  fpm)  through 
a  36  in.  diameter  fan  line.  The  equipment  includes  an  Elbair  scrubber 
in  the  near-face  zone  and  a  100-hp  fan  motor  that  supplements  a  portal 
fan. 


Ground  support  includes  steel  ring  sets,  rock  bolts,  cribbing  and 
lagging,  and  shotcrete  as  required.  Actual  support  installation  for 
the  5038  ft  segment  is  described  in  the  June  29  progress  reports  summar¬ 
ized  in  Sec.  Ill  of  this  appendix. 
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II. 


GEOLOGY 


A .  GEOLOGY 

Date 

6/25/71 

6/28/71 

6/29/71 

6/30/71 

7/1/71 

7/2/71 

7/3/71 

7/6/71 


REPORTS 


Stat ion 

1786+26  -  1786+20 


1786+20  -  1785+93 


1785+93  -  1785+61 


1785+61  -  1785+26 

1785+26  -  1784+55 


1784+55  -  1783+93 


1783+93  -  1783+41 


1783+41  -  1782+91 


Geology 

Layout  Tunnel:  Rock  is  a 
firm,  medium  hard,  brown 
sandstone.  Dip  =  2-3° 
downstream.  Rock  is  tight 
and  impermeable. 

Browr  sandstone  (medium 
hard)  is  periodically  cut 
by  lenses  of  soft,  gray, 
porous  sandstone. 

Three  vertical  joints 
(cracks)  at  springline  at 
Station  1785+00,  LW  (left 
wall)  1  to  2  ft  long. 

Periodic  short  vertical 
joints  continue  upstream. 

Normal  entry  of  formations 
into  tunnel  bore  is  at 
invert  and  rising  upstream 
into  roof.  However,  conglom¬ 
erate  enters  from  roof  and 
trends  upstream  erratically. 

At  Station  1784+40  a  very 
hard,  well-cemented  con¬ 
glomerate  starts  in  roof. 

It  contains  a  3  in.  maximum 
quartzite  rock. 

Conglomerate  is  lightly 
fractured  and  is  dripping 
water. 

Vertical  joints  at  Stations 
1783+25,  1783+50,  1783+45, 
all  dripping  water. 

No  support  steel  thus  far. 
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Geologic  Material  (Cont.) 


Date 

7/7/71 

7/8/71 


7/9/71 

7/10/71 

7/12/71 

7/13/71 

7/14/71 

7/15/71 

7/16/71 


Station 

1782+91  -  l/Ci+33 


1781+33  -  1780+04 


1780+04  -  1778+43 


1778+43  -  1777+89 


1777+89  -  1777+19 
1777+19  -  1776+23 


1776+23  -  1775+17 


1775+17  -  1774+32 
1774+32  -  1774+01 


beology 

Hard  conglomerate  is  now  a 
4  ft  bed  at  springline  with 
the  previously  mentioned 
brown  sandstone  (medium 
hard)  above  and  below. 

Brown  sandstone  is  inter- 
bedded  with  thin  (1-2  in.) 
brown  shales  that  push  out 
when  wet  and  dried. 

Mole  gripper  pads  leave 
small  chips  and  fractures 
near  springline. 

Beds  dipping  downstream 
2-3°.  Conglomerate  (very 
hard)  is  now  in  middle  of 
tunnel  near  springline. 

Brown,  silty  sandstone 
(medium  hard)  is  above  and 
below  conglomerate  and  nas 
thin  brown  shales. 

Formations  dip  2-3°  down¬ 
stream. 

Hard  conglomerate  is  grading 
upstream  into  a  gray, 
medium  hard  sandstone. 

Gray  sandstone  contains 
lenses  and  thin  beds  of 
pebble  conglomerates. 

Medium  hard,  brown  sand¬ 
stone  becoming  fractured 
with  short,  closely-spaced 
j  oints. 


Loose,  channel-fill  zone, 
Stations  1771+30  to  1775+00, 
a  very  loose,  soft  section 
containing  poorly-cemented 
sandstones  with  gravel 
streaks. 
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Geologic  Material  (Cont.) 


Date 

Station 

Geology 

7/17/71 

1774+01  - 

1773+87 

Above  mentioned  zone  is  wet 
and  contains  many  joints 
and  fractures  due  to  close 
proximity  to  fault  west  of 
tunnel . 

7/19/71 

1773+87  - 

1773+73 

7/20/71 

1773+73  - 

1773+59 

7/21/71 

1773+59  - 

1773+13 

7/22/71 

1773+59  - 

1772+82 

Same  conditions  as  above 

7/26/71 

1772+82  - 

1772+39 

Many  seeps. 

7/27/71 

1772+39  - 

1771+86 

8/3/71 

1771+86  - 

1770+56 

Joint,  filled  with  white 
calcite  RW:  1770+90,  LW : 
17704-80. 

8/4/71 

8/5/71 


8/6/71 

8/7/71 

8/9/71 


17704-56 

1769+38 


1768+56 

1767+50 

1767+50 


1769+38 

1768+56 


1767+50 

1767+50 

1765+95 


Rock  is  half  hard  sandstone 
and  half  soft  poorly-cemented 
tan  sandstone. 

Soft  tan  sandstone  has 
drips  and  many  fractures. 

Whole  tunnel  is  soft,  tan 
sandstone. 

Rock  is  firm,  medium-bird 
sandstone  at  Station  1769+00. 


Top  half  of  tunnel  is  medium- 
hard  brown  sandstone;  bottom 
half  is  soft,  wet  tan  sand¬ 
stone,  containing  thin 
shale. 

Light  fallout  along  thin 
shales  near  springline. 


I 


1 
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Geologic  Material  (Cont.) 


Date 

Station 

Geology 

8/10/71 

1765+95  - 

1765+70 

Fault  Zone  -  Station  1763+42 
to  1766+10 

8/11/71 

1765+70  - 

1765+34 

Fault  is  considered  to  be 
a  side  fracture  off  larger 
fault  located  west  of  tunnel 
ond  bearing  nearly  parallel. 

8/12/71 

1765+34  - 

1764+87 

Fault  Zone:  Stations  1763+42 

to  1766+10 

Rock  is  broken  mass  of  soft 
sandstone  and  conglomerate. 


Broken  rock  is  mixed  in  with 
a  wet  mixture  of  sand  and 
clay. 


8/13/71 

1764+87  - 

1764+01 

8/14/71 

1764+01  - 

1764+01 

4  in.  circular  steel  H-beam 
supports  were  installed 
throughout  fault  zone  because 
of  loose,  unstable  condition 
of  tunnel  walls. 

8/16/71 

1764+01  - 

1763+04 

8/17/71 

1763+04  - 

1762+05 

Rock  Is  medium-hard,  brown 
sandstone  containing  thin 
shales. 

8/18/71 

1762+05  - 

1759+96 

Vertical  joint  at  1761+90, 
with  many  small  fractures. 

8/19/71 

1759+96  - 

1758+02 

At  Station  1759+00  sandstone 
grades  into  hard  conglomer¬ 
ate  top  half  of  tunnel. 

Bottom  half  is  soft,  tan 
sandstone  containing  thin 
shales . 

8/20/71 

1758+02  - 

1757+43 

Conglomerate  and  sandstone 
has  many  small  fractures 
that  are  dripping  water. 

8/21/73 

1757+43  - 

1757+43 

Conglomerate  pinches  out 

in  roof  at  Station  1757+95. 
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Occasional  vertical  joints 
and  many  small  fractures. 


Geologic  Material  (Cont.) 


Date  Station  Geology 


8/23/71 

1757+43  - 

1756+57 

Top  half  is  medium-hard 
brown  sandstone  with  thin 
shales — bottom  half  is  a 
soft  sandstone. 

Conglomerate  enters  in  roof. 

8/24/71 

1756+57  - 

1755+07 

Tunnel  bore  all  hard  con- 
glomerata  with  lenses  of 
soft  sandstones. 

8/25/71 

1755+07  - 

1753+35 

8/26/71 

1753+35  - 

1752+75 

Rock  is  mostly  hard  conglom¬ 
erate  with  lenses  of  soft 
sandstone . 

8/27/71 

1752+75  - 

1751+68 

Conglomerate  has  few  lumps 
of  shale. 

8/28/71 

1751+68  - 

1751+68 

Conglomerate  has  many 
fractures  and  joints  from 
Station  1756+50  to  1756+00. 

8/30/71 

1751+68  - 

1750+68 

8/31/71 

17504-68  - 

1749+55 

Top  half  of  tunnel  is 
medium  hard,  sandstone; 
soft,  tan  sandstone  in 
bottom. 

Many  small  fractures  and  a 
few  vertical  joints. 

9/1/71 

1749+55  - 

1748+69 

9/2/71 

1748+69  - 

1747+46 

Tunnel  rock  is  all  a  soft 
brown  sandstone  with  thin 
shales. 

Small  amount  of  fallout  in 
thin  shales. 

9/3/71 

1747+46  - 

1746+20 

9/7/71 

1746+20  - 

1745+49 

Soft,  brown,  poorly-cemented 
sandstone. 
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Date 

9/8/71 

9/9/71 

9/10/71 

9/13/71 

9/14/71 

9/15/71 

9/16/71 

9/17/71 

9/20/71 

9/21/71 

9/22/71 


Geologic  Material  (Cont.) 


Station 

1745+49  -  1744+56 

1744+56  -  1743+90 

1743+90  -  1743+30 
1743+30  -  1742+38 


1742+38  -  1741+34 

1741+34  -  1740*65 
1740*65  -  1730*86 
1739+86  -  1739+02 

1739+02  -  1738+17 

1738+17  -  1736+77 


1736+77  -  1736+60 


Geology 

Many  joints,  and  fractures 
with  5  gal/min  water  in 
joint  at  Station  1745+20  RW. 

Fallout  in  soft,  fractured 
sandstone . 


Gray  and  tan,  soft  sandstone 
with  thin  brown  shales. 

Many  small  vertical  fractures 
throughout . 

Fallout  along  shales  near 
springline. 


Tunnel  rock  is  harder. 
Sandstone  is  better  cemented. 

Fewer  joints  and  fractures 
than  downstream. 


Note :  Because  of  nearby 
fault  paralleling  tunnel  to 
west,  tunnel  throughout  has 
many  joints  and  fractures. 

There  are  short  sections  of 
tunnel  supported  with  steel. 

Longer  supported  sections 
include  soft,  channel-fill 
from  Station  1771+30  to 
1775+00,  the  fault  zone  from 
Station  1763+42  to  1766+10. 

The  last  1700  ft  of  tunnel 
(Stations  1736+60  to  1752+60) 
is  fractured  and  jointed  and 
is  60%  steel  supported. 
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B.  ROCK  PROPERTIES  AND  MUCK  CHARACTERISTICS 

The  following  information  was  acquired  by  Holmes  and  Narver  Inc. 
as  part  of  the  Muck  Designation  Study  under  Contract  No.  H0210013  of  the 
ARPA  program.  The  rock  properties  cited  are  for  a  rock  sample  taken 
4,100  ft  from  the  tunnel  portal. 


PROJECT  & 

LOCATION 

OWNER 

OR  AGENCY 

SIZE 

LENGTH 

CONTRACTOR 

Currant  & 

U.S.  Bureau  of 

10'-4" 

Combined 

S.A. 

Layout  Tunnels 

Reclamation 

Dia. 

Length 

Healy 

Strawberry  Aqueduct, 
Heber  City,  Utah 

Denver,  Colorado 

4.9  mi 

A  Robbins  boring  machine  has  been  operating  in  sandstone.  Exist¬ 
ing  logs  of  13  drill  holes  show  lithology.  Compressive  strength  test 
results,  varying  from  5,000  psi  for  a  shale  to  over  38,000  psi  in  the 
conglomerate,  have  been  provided  by  the  Bureau  of  Reclamation.  This 
tunneling  was  stopped  in  September  1971  pending  provision  of  additional 
funds  but  has  since  been  resumed. 

Rock  Data: 

Lithology:  Sedimentary,  sandstone,  medium  grained,  light  brown  to 
red,  massive,  porous,  poorly  cemented. 

Uniaxial  Compressive  Strength:  10  kpsi 

RQD:  (Estimated)  84% 

Dry  Unit  Weight:  150  lb/ft3 

Ground  Water:  Generally  dry. 

Hardness:  NA  1/11/72 

Tunnel  Data: 

Size:  12  ft,  11  in.  diameter.  Grade:  (+)  .125% 

Ventilation  System:  15-17  kcfm  exhaust,  36  in.  dia.  pipe,  100  hp 
at  4100  ft 

Utility  System:  3  1/2  in.  water  line,  6  in.  air  line,  8  in.  pump 
line. 


V-17 


Water  Inflow:  20-100  gpm 
Power  System:  7300/480  V 

Haulage  System:  Muck,  supplies,  personnel,  10  ton  locomotives, 

6  2/3  CY  cars,  24  in.  gauge,  65  lb  rail. 

Support  System:  4  in.  H  full  rings,  4  ft  centers:  35%;  13  in.  x 
9  ft  pans  3/4  in.  x  7  ft  rock  bolts:  10%. 


Excavation  Data: 

Machine:  Robbins  141-127,  total  weight:  125  tons 

Cutters:  30  Robbins  steel  disc.  Gauge:  6-11  in.  Center:  1-11  in. 

triple  disc.  Interior:  23-11  in. 

Rotation:  Center  cutter  integral  with  head,  6  or  3  rpm 
Torque:  600  hp 

Thrust:  900  K //  max.,  685  K .//  operating.  Anchor  pressure:  1,000  K // 
Muck  Collection:  Pickup  by  buckets  fixed  to  head,  discharging  on 
30  in.  belt  to  a  24  in.  x  204  ft  belt  on  gantry. 

Power  System:  6-480/240  V  electric  motors  drive  head.  Hydraulic 
pumps  power  thrust  and  gripper  cylinders. 

Guidance  System:  Laser 


Muck  Data  (Table  V-l;  Fig.  V-2): 

Abrasiveness:  N.A.  1/11/72 

Pot.  Vol.  Change,  Material  Size  -  0.056  in.:  0 
Spec.  Gravity,  Material  Size  -0.75  in.:  2.66 


Atterbfrg  Limits,  Material  Size  (~)0.056  in. 

Liquid  Limit  21.20%  Plastic  Limit  17.06%  Shrinkage  Limit  15.17% 

Plasticity  Index  3.14%  Toughness  Index  0.52  Flow  Index  6.00 


Material  Size  (~)2.0  in. 


Angle/Repose  1  in.  Drop 
@  3.6%  Moisture,  37° 
Angle  Slide  Steel  Plate 
@  3.6%  Moisture,  27° 


Apparent  Cohesion  lb/ft 
@  3.6%  Moisture,  210 
Bulk  Density  lb/fv.^ 

@  0.0%  Moisture,  97.4 


Angle/Repose  10  in. 
Drop  @  3.6% 
Moisture,  35° 

Angle  Internal 
Friction  @  3.6% 
Moisture,  38° 
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III. 


PROGRESS  REPORTS 


The  following  information  is  taken  from  the  Bureau  of  Reclamation 
L-29  progress  reports  for  the  Layout  Tunnel. 

April  1971 

Strawberry  Aqueduct,  Currant  and  Layout  Tunnels,  Diversions  and 
Appurtenant  Structures  -  Specifications  No.  DC-6855.  Contract  No.  41- 
06-D-7058.  S.  A.  Healy  Company. 

At  the  close  of  the  month,  the  percentage  of  work  complete  was: 


Part  1 

Part  2 

This  month 

0% 

1% 

To  date 

0% 

1% 

Time  elapsed 

47% 

12% 

Excavation  for  outlet  portal  Layout  Tunnel  was  initiated  April  27.  The 

3 

portal  excavation  of  6,414  yd  was  completed  during  the  month.  The  con¬ 
tractor  plans  to  excavate  40  ft  of  tunnel  from  the  outlet  portal  by 
conventional  methods  and  the  remainder  of  the  tunnel  with  a  mole. 

The  mole  is  scheduled  for  shipping  from  Robbins  Plant  in  Seattle, 
Washington,  about  May  15. 

The  contractor  continued  with  preparatory  work  for  the  camp  site 
completion  of  developing  two  culinary  water  wells  and  completion  of  two 
sediment  ponds.  One  well  is  located  at  the  contractor's  camp  site  and 
the  other  is  near  the  outlet  portal  of  Layout  Tunnel.  Well  water  samples 
were  submitted  to  the  State  Health  Department  for  tests.  The  sediment 
ponds  are  located  downstream  from  the  Water  Hollow  siphon. 
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L.  0.  Everst,  Inc.,  will  process  sand  and  aggregate  for  concrete. 
Plans  are  to  obtain  the  aggregate  from  a  deposit  owned  by  Elmer  Ray  Moon 
and  located  in  SWl/4,  Sec.  1,  T.35,  R.10W,  Uinta  Meridian. 

All  remaining  work  under  Schedule  4  was  subcontracted  to  Jerico- 
Highland  of  Murray,  Utah.  Jer ico-Highland  plans  to  excavate  the  inlet 
portal  and  the  outlet  portal  for  Layout  and  Currant  Tunnels,  respectively, 
during  this  summer.  The  subcontractor  also  plans  to  start  work  on  the 
Water  Hollow  Diversion  works  and  Layout  Creek  Access  Road  about  the 
middle  of  May. 

Contract  earnings  for  the  month  and  earnings  to  date  are  $128,280.00 
May  1971 

Currant  and  Layout  Tunnels  -  S.  A.  Healy  Company  excavated,  by 
conventional  methods,  54  ft  of  Layout  Tunnel  from  the  outlet  portal. 

The  Robbins  mole  arrived  at  the  work  site  May  24.  Offloading  and  assembly 
were  started  May  25.  The  access  roads  and  tunnel  portals  in  Layout  Creek 

were  cleared. 


Strawberry  Aqueduct.  Currant  and  Layout  Tunnels.  Diversions  ancl 
Appurtenant  Structures  -  Specifications  No.  DC-6855.  Contract  No.  14^ 
06-D-7058.  S.  A.  Healy  Company. 

At  the  close  of  the  month,  the  percentage  of  work  complete  was: 

Part  1  Part  2 

This  month  07.  0.34 

To  date  0%  1.3/ 

Time  elapsed  56%  14/ 

S.  A.  Healy  Company  excavated  54  ft  of  Layout  Tunnel  from  the  outlet 
portal  by  conventional  methods  in  parparation  for  excavation  with  a  mole 
Water  and  air  pipelines  were  installed  to  the  portal. 
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The  Robbins  mole  arrived  at  the  work  site  May  24,  and  assembly  was 
Initiated  May  25. 

Jerlco-Hlghland ,  subcontractor,  Initiated  work  on  a  bypass  channel 
at  the  Water  Hollow  Diversion  Dam. 

Hamilton  and  Skewes ,  subcontractor  for  Jerlco-Hlghland,  cleared 
trees  and  brush  from  the  Layout  Creek  road,  Layout  Creek  road  extension, 
Layout  Tunnel  Inlet  portal,  Currant  Tunnel  outlet  portal,  Water  Hollow 
Creek  road  extension,  and  Water  Hollow  Diversion  Damsite.  About  half  of 
the  Water  Hollow  feeder  pipeline  right-of-way  was  also  cleared. 

Preparatory  work  by  the  prime  and  subcontractors  included  fabrica¬ 
tion  and  ventilation  of  line  and  laying  tracks. 

The  contractor  plans  to  complete  assembling  the  mole  and  start 
tunnel  excavation  by  mole  during  June. 

Jerico-Highland  plans  to  complete  the  clearing  operation  and  in 
early  June  to  start  building  the  Layout  Creek  Access  Road  and  Water  Hollow 
Diversion  Dam. 

Contract  earnings  for  May  were  $14,202.00.  Earnings  to  date  are 
$142,482.00. 

June  1971 

Currant  and  Layout  Tunnels  -  S.  A.  Healy  initiated  moling  Layout 
Tunnel  June  25  and  moled  100  ft  during  the  month.  Jerico  Construction 
excavated  for  Water  Hollow  Diversion  Dam,  completed  open  cut  excavation 
of  inlet  portals  of  Currant  Tunnel  and  Layout  Tunnel,  cleared  Water 
Hollow  Feeder  Pipeline,  and  cleared  and  initiated  construction  of  Layout 
Creek  Access  Road  and  Extension. 
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Strawberry  Aqueduct,  Currant  and  Layout  Tunnels,  Diversions  and 
Appurtenant  Structures  -  Specifications  No.  DC-6855.  Contract  No.  14-06- 
D-7058.  S.  A.  Healv  Company. 


close  of  the  month, 

the  percentage 

of  work  complete  was : 

Part  1 

Part  2 

This  month 

17% 

1.7% 

To  date 

17% 

3% 

Time  elapsed 

64% 

16% 

S.  A.  Healy  Company  excavated  100  ft  of  Layout  Tunnel  from  near  the  out¬ 
let  portal  with  a  mechanical  mole.  Moling  was  initiated  June  25,  1971. 


Excavation  was  in  hard  sandstone  and  no  support  was  required. 
Daily  tunneling  operations  are  as  follows: 

FOOTAGE 


Date 

Hours 

Day 

Accumulated 

6/24/71 

6/25/71 

Operated 

3.9 

6 

6 

6/28/71 

5.3 

27 

33 

6/29/71 

3.3 

32 

65 

6/30/71 

3.0 

35 

100 

Totals 

15.5 

100 

Remarks 

Station  1786+26. 

Initial  exc.  by  mechanical  mole. 
Had  difficulty  controlling  line 
and  grade  caused  by  grippers 
against  unstable  timbers  in  ribs. 

Had  electrical  and  gripper 
trouble . 

Had  an  oil  lea!'  at  the  head  of 
the  mo]e  and  electrical  trouble. 

Moling  resumed  middle  of  swing 
shift  without  determining  cause 
of  oil  leak. 

Station  1785+26. 
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SUMMARY 


Item 

This  Month 

Previous 

Total 

Total  operating  time  in  hours 

15.5 

0 

15.5 

Total  footage 

100 

0 

100 

Rate  per  hour 

6.5 

0 

6.5 

Maximum  advance  per  day 

35 

0 

35 

Jerico  Construction  Company,  subcontractor,  completed  excavating 

a  bypass  channel  and  excavated 

about  80%  of 

the  required  foundation  for 

Water  Hollow  Diversion  Dam.  Work  on  foundation  excavation  was  slow  as 
the  dewatering  system  was  inadequate  until  the  third  sump  and  pump  were 
installed  June  24,  1971.  Open  cut  excavation  for  Layout  Tunnel  inlet 
and  Currant  Tunnel  inlet  was  completed.  Pioneering  and  excavating  for 
Layout  Creek  Access  Road  and  Layout  Creek  Access  Road  extension  were 
initiated . 

Hamilton  and  Skewes,  subcontractor  for  Jerico  Construction  Company, 
finished  the  clearing. 

Additional  preparatory  work  by  the  prime  and  subcontractors  in¬ 
cluded  fabrication  of  ventilation  line  and  laying  tracks. 

The  contractor  plans  to  excavate  by  mole  on  a  3-shift  5-days  per 
week  schedule.  Plans  are  to  excavate  about  40  ft  by  conventional  method 
from  the  inlet  portal  of  Layout  Tunnel. 

Jerico  Construction  Company  plans  to  work  on  building  the  Layout 
Creek  Access  Road,  Layout  Creek  Access  Road  Extension,  Water  Hollow 
Diversion  Dam  earthwork  and  concrete,  and  the  excavation  at  the  Currant 
Tunnel  outlet  portal. 
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Contract  earnings  for  June  were  $202,988.00.  Earnings  to  date  are 
$345,470.00. 

July  1971 

Strawberry  Aqueduct,  Currant  and  Layout  Tunnels,  Diversions  and 
Appurtenant  Structures  -  Specifications  No.  DC-6855.  Contract  No.  14-06- 
D-7058.  S.  A.  Healy  Company. 


:  close  of  the  month, 

the  percentage 

of  work  complete 

Part  1 

Part  2 

This  month 

2% 

5% 

To  date 

19% 

8% 

Time  elapsed 

73% 

18% 

S.  A.  Healy  Company  excavated  1,329  ft  of  Layout  Tunnel  from  Station 
1785+26  to  Station  1771+97  with  a  mechanical  mole.  From  Station  1774+71 
to  1772+40,  some  fallout  and  water  were  encountered.  Through  this  reach, 
structural  steel  supports  with  lagging  was  installed  and  timber  was  used 
for  gripper  pads. 

Ground  formations  consisted  of  hard  and  softer  layers  of  sandstone 
with  some  gravel  and  conglomerate  seams. 

Daily  tunneling  operations  are  as  follows: 

FOOTAGE 


Date 

Hours 

Day 

Accumulated 

Remarks 

Operated 

6/30/71 

100 

Station  1785+26 

7/1/71 

5.9 

71 

171 

Electric  drive  motor  for  hydraulic 

pumps  that  run  gantry  belt  failed. 
Stopped  moling,  worked  to  install 
fanline,  tracks,  and  maintain  cat- 
walk  and  gantry. 
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FOOTAGE  (Cont.) 


Date  Hours  Day  Accumulated 
Operated 


Remarks 


7/2/71 

4.1 

62 

233 

Changes  two  cutters,  Nos.  10  and 

23.  Motor  was  removed  graveyard 
shift.  Replaced  with  new  motor 
during  swing  shift.  High  speed  RPM 
cut  out  drive  motors.  Used  low 
speed  RPM. 

7/3/71 

3.8 

52 

285 

Material  increasing  in  hardness. 

7/6/71 

4.5 

50 

335 

Changed  three  cutters.  Nos.  27,  28, 
and  29,  slight  fault,  3  in.  by  4  ft 
in  crown  section  well  cemented. 

(No  supports  required  this  day.) 

7/7/71 

12.8 

158 

493 

Changed  two  cutters  os.  1  and 

23.  Hit  small  flow  if  water  at 
left  rib,  Sta.  1783+76.  Belt 
trouble,  shut  down  from  3:45  p.m. 
to  4:30  and  30  min  during  swing 
shift. 

7/8/71 

10.6 

129 

622 

(Routine  working  conditions.) 
Electrical  trouble  with  100  hp 
drive  motors.  Change  three 
cutters.  Nos.  16,  28,  and  29. 

7/9/71 

11.1 

161 

783 

Changed  17  cutters,  Nos.  2,  3, 

4.  5,  6,  8,  9,  10,  11,  27,  12, 

14,  15,  25,  28,  and  29.  Down 
because  of  trouble  with  trains 
in  disposal  area  and  to  check 
outer  seal. 

7/10/71 

4.4 

54 

837 

Started  changing  cutters. 

7/12/71 

5.4 

70 

907 

Changed  two  cutters.  Nos.  12  and 

29.  Had  trouble  with  pump  on 
scrubber  and  mole  belt.  Down  to 
check  noisey  cutter,  and  install¬ 
ing  spray  bar  at  gantry  belt 
pickup  from  mole  belt. 

7/13/71 

8.3 

96 

1003 

Changed  three  cutters.  Nos.  17, 

22,  and  23.  Down  to  revamp  spray 
nozzle  bar  between  mole  belt  and 
gantry  belt.  One  train  of  loaded 
muck  cars  derailed  at  5:00  a.m. 

Mole  belt  plugged  and  slipped  from 
wet  material. 
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FOOTAGE  (Cont. ) 


Date 

Hours 

Operated 

Da^ 

Accumulated 

Remarks 

7/14/71 

8.8 

106 

1109 

Changed  seven  cutters,  Nos.  13, 

23,  25,  26,  27,  28  and  29.  Had 
belt  problems.  Tried  new  spray 
bar.  Down  with  broken  hydraulic 
line  to  mole  conveyor. 

7/15/71 

7.1 

85 

1194 

Excavated  61  ft  on  graveyard 
shift.  Hit  bad  ground,  sand  and 
gravel  washed  out  with  approxi¬ 
mately  15  gpm  flow  of  water. 
Started  rib  steel  supports  and 
lagging  as  mole  advanced.  Crib¬ 
bing  behind  grippers  was  necessary 
in  places. 

7/16/71 

3.6 

31 

1225 

Had  trouble  gripping  and  with 
chunks  falling  out  from  above 
springline. 

7/17/71 

0.3 

3 

1228 

Cleaned  out  invert  of  tunnel. 
Advanced  mole  3  f.  when  another 
large  fallout  from  crown  occurred. 
Placed  rib  support  steel. 

7/19/71 

1.7 

14 

1242 

Changed  cutter  No.  27.  Installed 
ribs  at  3-ft  centers  and  lagged 
and  moled  intermittently. 

7/20/71 

3.8 

14 

1256 

Had  trouble  with  grippers  against 
unstable  Jagging. 

7/21/71 

5.2 

46 

1302 

Had  trouble  with  transformer  and 
left  side  gripper  moving  rib 
steel  and  lagging. 

7/22/71 

2.6 

31 

1333 

Day  shift  7/22  thru  graveyard 
shift  7/26  were  spent  on  mole, 
airline  maintenance  and  structu¬ 
ral  steel  supporting  of  bad  ground, 

7/26/71 

4.1 

43 

1376 

Ran  mole  enough  for  one  set  of 
suppor-  steel  at  a  time  until  mole 
was  stopped  due  co  dust  after 
waterline  to  scrubber  was  broken. 

7/27/71 

5.3 

53 

1429 

Changed  seven  cutters,  Nos.  23, 

13,  16,  12,  15,  29,  and  26. 
Installed  gantry. 

Month 

Total 

113.4 

1329 

Station  1771+97 
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SUMMARY 


Item 

This  Month 

Previous 

Total 

Total  operating  time  in  hours 

113.4 

15.5 

128.9 

Total  footage 

1,329 

100 

1,429 

Rate  per  hour 

11.7 

6.5 

11.1 

Maximum  advance  per  day 

161 

35 

Structural  steel  tunnel  supports  consisting  of  4"  H  beam  13#/ft  were 
installed  as  follows: 

Stations : 

1774+71  to  1774+63  Partial  ring  set  on  4  ft  centers  and  pinned  2  ft 

below  springline. 

1774+59  to  1774+47  Full  ring  on  4  ft  centers. 

1774+43  to  1774+23  Partial  ring  set  on  4  ft  centers  and  pinned  2  ft 

below  springline. 

1774+19  to  1774+15  Full  ring  on  4  ft  centers. 

1774+15  to  1774+08  Full  ring  on  3  ft  centers. 

1774+08  to  1773+98  Full  ring  on  2  ft  centers. 

1773+98  to  1772+64  Full  ring  on  4  ft  centers. 

1772+60  to  1772+40  Partial  ring  set  on  4  ft  centers  and  pinned  at 

springline. 

Jerico  Contruction  Company,  subcontractor,  excavated  the  foundation 
for  Water  Hollow  Diversion  Dam  and  started  compacted  embankment.  Work 
on  foundation  excavation  and  embankment  was  slow  as  the  contractor  had 
difficulty  with  dewatering.  Initial  concrete  placement  was  made  for 
the  footing  of  the  upstream  cutoff  wall  for  Water  Hollow  Diversion  Dam. 
Undesirable  material  was  removed  and  backfill  and  compacted  backfill  for 
structures  were  placed  for  the  Water  Hollow  Tunnel  intake  structure. 

Open  cut  excavation  for  tunnel  portals  was  substantially  completed. 
Excavating  for  Layout  Creek  Access  Road  and  Layout  Creek  Access  Road 
Extension  advanced  to  about  55%. 


The  contractor  plans  to  excavate  by  mole  on  a  3-shift  5-days  per 
week  schedule.  Plans  are  to  excavate  about  40  ft  by  conventional  method 
from  the  inlet  portal  of  Layout  Tunnel. 

Contract  earnings  for  July  were  $612,231.00.  Earnings  to  date 
are  $957,701.00. 

August  1971 

Strawberry  Aqueduct,  Currant  and  Layout  Tunnels,  Diversions  and 
Appurtenant  Structures  -  Specifications  No.  DC-6855.  Contract  No. 
14-06-D-7058.  S.  A.  Healy  Company. 

At  the  close  of  the  month,  the  percentage  of  work  complete  was: 


Part  1 

Part  2 

This  month 

18% 

8% 

To  date 

37% 

16% 

Time  elapsed 

82% 

20% 

S.  A.  Healy  Company  excavated  2,314  ft  of  Layout  Tunnel  from 
Station  1771+97  to  Station  1748+83  with  the  mechanical  mole. 

Ground  formations  consisted  of  hard  and  soft  layers  of  sandstone 
with  some  siltstone,  conglomerate  and  shale  seams.  Supports  were 
required  in  the  following  areas: 

1767+38  to  1761+94 
1759+22  to  1759+06 
1758+04  to  1756+17 
1752+62  to  1748+83 

Through  these  reaches,  steel  pans  with  rock  bolts  or  structural 
steel  supports  with  lagging  and  cribbing  were  installed.  Timber  was 
used  for  gripper  pads  as  needed. 


Daily  tunneling  operations  are  as  follows: 


FOOTAGE 


Date 

Hours 

Day 

Accumulated 

Operated 

7/31/71 

8/2/71 

5.2 

83 

1,512 

8/3/71 

9.6 

130 

1,642 

8/4/71  6.9  118  1,760 


8/5/71  6.0  82  1,842 


8/6/71  9.1  106  1,948 


8/7/71  0  0  1,948 


Remarks 

Station  1771+97 

Hydraulic  system  repaired,  some 
ground  water  encountered. 

Changed  16  cutters,  Nos.  22,  11, 

7,  18,  10,  19,  28,  14,  20,  15, 

23,  23,  23,  7,  8,  and  9.  No.  7 
cutter  was  changed  twice,  once 
on  day  shift  and  once  following 
graveyard  shift;  and  No.  23  was 
changed  three  times  on  swing 
shift,  when  material  was  hardest. 

Changed  11  cutters,  Nos.  24,  25, 

26,  28,  6,  3,  16,  21,  15,  28, 
and  29.  Cutter  No.  28  changed 
twice. 

Changed  6  cutters.  Nos.  19,  12, 

18,  13,  21,  and  20.  Down  day 
shift  waiting  on  repair  parts. 

No  moling  9:30  p.m.  to  10:00  p.m. 
while  unsafe  conditions  were 
being  corrected.  Rockbolts  with 
pans  were  tried  as  support  on 
left  side,  between  Stations 
1769+75  and  1769+90,  but  6  ft 
rockbolts  failed  to  torque. 

Changed  18  cutters,  Nos.  23,  14, 

27,  11,  17,  5,  and  24,  23,  24, 

25,  26,  27,  29,  10,  21,  15,  3,  and 
29.  Cutters  changed  twice  at 
locations  No.  23,  27,  24,  and  29. 
Grippers  fractured  material 
causing  flaking  from  left  side. 

10'  x  12"  x  16  gage  pans  were 
anchored  with  2  ft  rock  bolts 
from  Station  1767+04  to  1766+84. 

Changed  center  cutter. 
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FOOTAGE  (Cont.) 


Date 

Hours 

Operated 

Day 

Accumulated 

Remarks 

8/9/71 

12.9 

155 

2,103 

Changed  cutter  No.  23.  Had 
trouble  gripping  on  sides.  Pans 
and  rockbolts  used  from  Stations 
1766+84  to  1765+86. 

8/10/71 

2.4 

25 

2,128 

Hit  soft,  wet,  caving  ground;  water 
inflow  estimated  at  70  to  80  gpm. 
Placed  structural  steel  supports 
and  lagging  intermittently. 

8/11/71 

3.8 

36 

2,164 

Set  structural  steel  supports 
and  lagging. 

8/12/71 

5.4 

47 

2,211 

Conditions  similar  to  those  en¬ 
countered  10th  and  11th  except 
estimated  100  gpm  of  water. 

8/13/71 

7.6 

86 

2,297 

Moled,  blocked  grippers,  placed 
support  steel  and  lagging  inter¬ 
mittently  and  pumped  water.  Had 
trouble  with  mud  building  up 
around  support  wheels  for  trans¬ 
former  and  scrubber  platform. 

8/14/71 

0 

0 

2,297 

Changed  4  cutters,  Nos.  1,  15, 

26,  and  29. 

8/16/71 

8.3 

97 

2,394 

Changed  5  cutters,  Nos.  26,  11, 

28,  18,  and  16.  Ground  became 
firmer. 

8/17/71 

7.6 

99 

2,493 

Changed  7  cutters,  Nos.  26,  18, 

10,  19,  21,  23,  and  25.  Placed 
support  steel  and  lagging,  head¬ 
ing  became  dry  and  supports  were 
discontinued. 

8/18/71 

15.4 

209 

2,703 

Changed  6  cutters,  Nos.  24,  28, 

22,  7,  14,  and  2.  The  hydraulic 
"tugger"  system  for  moving  muck 
cars  under  the  gantry  was  tried. 

It  was  slow  and  could  move  only 

8  cars  at  a  time  when  loading. 
Started  supporting  with  rockbolts 
and  pans  at  Station  1759+90. 

Empty  muck  car  derailed  at  7:30  p.m. 
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FOOTAGE  (Cont.) 


Date  Hours  Day  Accumulated 
Operated 

8/19/71  13.5  194  2,896 


8/20/71  4.4  59  2,955 


8/21/71  0  0  2,955 

8/23/71  9.4  86  3,041 


8/24/71  16.4  150  3,191 


Remarks 


Changed  11  cutters.  Nos.  29,  6, 

16,  21,  22,  2,  11,  17,  23,  19, 
and  10.  Contractor  worked  to 
correct  cause  of  derailment  from 
8  to  10:40  a.m.  and  started 
moling  at  10:40.  Maximum  advance 
was  4^4  in.  per  min  with  2100  lb 
of  propel.  Water  was  encountered 
above  invert  on  left  side  at 
Station  1758+01. 

Changed  cutter  No.  24.  Down  3  hr 
and  10  min  on  day  shift  to  set 
transformer  at  Station  1768+36 
and  install  1,000  ft  of  7200  volt 
electric  cable.  At  3:15  p.m., 
encountered  loose  conglomerate 
which  required  steel  rib  supports, 
moled  4  ft  at  a  time  then  stopped 
to  place  support  steel  and  lagging. 

Changed  6  cutters,  Nos.  5,  11, 

17,  23,  25,  and  28. 

Changed  7  cutters;  Nos.  24,  27,  9, 
6,  14,  18  and  22.  Continued  to 
mole  slowly  and  installed  supports 
for  most  of  day.  Down  an  hour  to 
repair  vent  line  and  scrubber. 
Material  got  harder  and  had  more 
stability. 

Changed  16  cutters.  Nos.  1,  29, 

15,  18,  12,  10,  16,  11,  12,  13, 

19,  17,  22,  23,  8  and  3.  Cutter 
at  location  No.  12  was  changed 
twice.  Down  twice  on  swing  shift 
and  once  on  graveyard  shift  to 
change  cutters  because  of  hard 
well  cemented  conglomerate.  Ad¬ 
vanced  2  in.  per  min  at  propel 
pressure  of  2,800  psi. 


FOOTAGE  (Cont.) 


Date 

Hours 

Operated 

Day. 

Accumulated 

8/25/71 

15.6 

172 

3,363 

8/26/71 

6.5 

60 

3,423 

8/27/71 

11.6 

107 

3,530 

8/28/71 

0 

0 

3,530 

8/30/71 

9.2 

100 

3,630 

8/31/71 

7.5 

113 

3,743 

8/31/71 


Remarks 

Changed  23  cutters,  Nos.  15,  16, 
20,  18,  14,  22,  19,  25,  24,  26, 

28,  27,  29,  22,  21,  7,  17,  23, 

13,  24,  21,  11,  and  16.  Cutters 
at  locations  Nos.  16,  21,  22,  and 
24  were  changed  twice. 

Water  encountered  in  crown  at 
3:00  p.m.  Started  setting  pans 
and  rockbolts.  Changed  water 
nozzles  at  throat  oi  the  mole 
for  better  dust  control.  At 
4:15  p.m.  began  installing  struc¬ 
tural  steel  supports. 

Changed  3  cutters,  Nos.  4,  28, 

29.  Moled  and  set  steel  alter¬ 
nately  until  shut  down  for 
hydraulic  system  repairs. 

Changed  5  cutters,  Nos.  14,  19, 

23,  25,  and  27,  and  set  some 
structural  steel  supports  while 
making  hydraulic  system  repairs. 

Changed  2  cutters,  Nos.  12  and 
20.  Continued  repair  on  hydraulic 
system  and  encountered  ground  that 
required  supports. 

Changed  2  cutters,  Nos.  28  and 
29.  Moled  4  ft  and  set  support 
steel  alternately. 

Station  1748+83. 


SUMMARY 


Item 

This  Month 

Previous 

Total 

Total  operating  time  in  hours 

194.3 

128.9 

323.2 

Total  footage 

2,314 

1,429 

3,743 

Rate  per  hour 

11.9 

11.1 

11.6 

Maximum  advance  per  day 

209 

161 
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Jerico  Construction  Company,  subcontractor,  placed  approximately 
25%  of  the  compacted  embankment  and  compacted  backfill  for  Water  Hollow 
Diversion  Dam.  This  material  came  from  borrow.  Nearly  all  of  the 
structural  excavation  in  the  diversion  dam  was  oversize  and  rejected. 

3 

About  102  yd  of  concrete  was  placed  for  the  upstream  cutoff  wall, 

cutoff  walls  under  the  spillway  and  sluiceway  floors,  and  the  10'  x  31'  x 

sluiceway  floor  section.  At  the  Water  Hollow  Tunnel  inlet  structure, 

3 

19  yd  concrete  was  placed  for  the  floor  and  part  of  the  walls. 

Excavation  and  embankments  for  Layout  Creek  Access  Road,  Layout 
Creek  Access  Road  Extension  and  Road  above  the  Layout  Feeder  Pipeline 
were  substantially  completed.  Earthwork  and  laying  of  pipe  were  initiated 
for  the  Layout  Feeder  Pipeline. 

JdVico  Construction  Company  plans  to  work  a  10-hr  shift  6  days  per 
week  on  Water  Hollow  diversion  structures.  L.  G.  Everst  plans  to  pro¬ 
cess  coarse  concrete  aggregate  until  winter  shutdown  about  October  1, 

1971.  Plans  are  to  use  a  rod-mill  next  summer  to  process  sand  for 
concrete  because  current  processes  have  failed  to  produce  sand  within 
the  specified  gradation. 

Contract  earnings  for  August  were  $708,358.60.  Earnings  to  date 
are  $1,666,059.60. 

September  1971 

Currant  and  Layout  Tunnels  -  S.  A.  Healy  moled  1,295  ft  of  Layout 
Tunnel.  On  September  22,  the  contractor  discontinued  moling  because 
funds  were  exhausted.  About  2,900  ft  of  pipe  was  laid  for  Layout  Feeder 

3 

Pipeline  and  235  yd  of  concrete  was  placed  for  Water  Hollow  Diversion 
Dam  and  the  inlet  structure  to  Water  Hollow  Tunnel. 
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Strawberry  Aqueduct „  Currant  and  Layout  Tunnels,  Diversions  and 
Appurtenant  Structures  -  Specifications  No.  DC-6855.  Contract  No. 
14-06-D-7058.  S.  A.  Healy  Company. 


close  of  the  month. 

the  percentage 

of  work  complete  was : 

Part  1 

Part  2 

This  month 

22% 

6% 

To  date 

59% 

22% 

Time  elapsed 

91% 

22% 

S.  A.  Healy  Company  excavated  1,295  ft  of  Layout  Tunnel  from 
Station  1748+83  to  1735+88  with  the  mechanical  mole. 

On  September  22,  at  noon,  the  contractor  discontinued  tunnel  exca¬ 
vation  because  funds  were  exhausted.  Swing  and  graveyard  shifts  were 
discontinued  on  September  24  and  25  respectively.  P/  September  30, 

S.  A.  Healy  had  laid  off  all  employees  except  supervisory  personnel. 

The  material  at  the  heading  when  work  was  discontinued  is  conglom¬ 
erate  in  the  arch  to  about  2  ft  above  springline  and  shale  and  sandstone 
below  that. 

The  contractor  has  completed  the  following  work  to  protect  the 
Layout  Tunnel  and  boring  machine  during  the  shut  dotm  period :< 

1.  Applied  shotcrete  to  90%  of  the  tunnel  except  for  the  invert 
from  the  end  of  the  California  switch  to  and  including  the 
heading. 

2.  Installed  4  in.  tunnel  support  steel  on  4  ft  centers  around 
the  mole. 

3.  Installed  a  bulkhead  at  the  outlet  portal. 
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4. 


Installed  8  in.  drain  pipe  at  the  outlet  portal.  This 
line  connected  to  the  invert  of  the  tunnel  to  the  original 
8  in.  pump  discharge  line  outside  the  portal  and  was  buried 
about  2  ft.  The  pipe  was  insulated  when  buried. 

5.  Cleaned  invert  of  tunnel  around  mole  and  backup  equipment 
to  facilitate  drainage  of  water.  Pumping  was  discontinued 
October  1,  1971. 

6.  Performed  general  cleanup  of  the  mole  and  backup  equipment. 

7.  Blocked  up  the  mole  and  retracted  all  hydraulic  rams. 

8.  Greased  all  machine  surfaces  left  exposed. 

9.  Activated  internal  heaters  in  the  electric  drive  motors  on 
the  mole  head. 

10.  Electricians  sprayed  a  moisture  proof  preservative  coating 
on  all  internal  electrical  wiring  for  motors,  transformers, 
switches,  etc. 

11.  Covered  mole  with  a  plastic  covering. 

In  addition,  the  contractor  plans  to  have  watchmen  on  the  job  site 
during  the  entire  shut  down  period.  Also,  electric  power  will  be  left  on 
in  the  tunnel  to  activate  the  motor  heaters  and  keep  the  transformers 
in  operation  to  prevent  deterioration. 

Ground  formations  excavated  during  the  month  consisted  of  hard 
and  soft  layers  of  sandstone  with  some  siltstone,  conglomerate  and  shale 
seams.  Structural  steel  supports  with  cribbing  and  lagging  were  in¬ 
stalled  in  the  following  areas: 

1748+83  to  1743+42 

1740+64  to  1738+80 

1736+32  to  1736+00 


Timber  was  used  for  gripper  pads  as  needed.  A  small  amount  of 
pans  with  rock  bolts  were  also  installed. 

3 

Approximately  170  yd  of  shotcrete  was  placed  to  retard  rock 
deterioration  along  the  tunnel  walls  and  crown  between  Stations  1784+50 
and  1735+88  on  an  intermittent  basis  as  needed. 


Daily  tunneling  operations  were  as  follows: 


FOOTAGE 


Date 

Hours 

Operated 

Accumulated 

Remarks 

8/31/71 

3,743 

Station  1748+83 

9/1/71 

5.3 

86 

3,829 

Changed  9  cutters,  Nos.  25,  29, 
18,  24,  27,  26,  21,  15,  and  9. 
Alternately  moled  4  ft  and 
stopped  to  set  rib  support  steel 
at  4  ft  centers.  Grippers  cause 
rock  to  slab  off. 

9/2/71 

8.8 

123 

3,952 

Changed  10  cutters,  Nos.  23,  17, 
20,  8,  19,  22,  16,  10,  28,  and 

29.  Alternately  moled  4  ft  and 
stopped  to  set  rib  support  steel. 
Material  was  getting  more  stable. 

9/3/71 

9.4 

126 

4,078 

Changed  7  cutters,  Nos.  14,  13, 

8,  6,  5,  11,  and  23.  Alternately 
moled  4  ft  and  stopped  to  set 
rib  support  steel.  Material  was 
getting  softer  and  falling  out 
from  both  sides. 

9/7/71 

5.2 

71 

4,149 

Changed  2  cutters,  Nos.  23  and 

28.  Alternately  moled  4  ft  and 
stopped  to  set  rib  support  steel. 
Ground  was  blockey  and  some 
slabs  fell  out. 

9/8/71 

6.2 

93 

4,242 

Changed  5  cutters,  Nos.  27,  21, 

18,  15,  and  2.  Alternately 
moled  4  ft  and  stopped  to  set 
rib  support  steel,  as  grippers 
were  breaking  slabs  out. 
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FOOTAGE  (Cont.) 


Date 

Hours 

Operated 

Day 

Accumulated 

Remarks 

9/9/71 

5.6 

66 

4,308 

Changed  13  cutters,  Nos.  29,  26, 

27,  12,  23,  22,  28,  24,  23,  26, 
25,  27,  and  29.  Cutters  at 
location  No.  23,  26,  27,  and  29 
were  changed  twice.  Alternately 
moled  4  ft  and  stopped  to  set 
steel  until  rib  support  steel 
was  discontinued  at  Station 
1743+421  at  stable  ground. 


9/10/71 

6.1 

60 

4,368 

Changed  5  cutters,  Nos.  17,  20, 

21,  24,  and  26.  Ground  was 
harder  and  moling  speed  was  slow. 

9/13/71 

11.5 

92 

4,460 

Changed  14  cutters.  Nos.  14,  15, 

16,  23,  11,  9,  4,  8,  13,  19,  20, 

21,  10  and  2.  Had  trouble  with 
high  speed  gripper  valve,  dust 
control  equipment  and  conveyor 
belts.  Stopped  from  time  to 
time  to  repair  these. 

9/14/71 

12.1 

104 

4,564 

Changed  14  cutters.  Nos.  5,  7, 

10,  17,  18,  23,  24,  25,  26,  27, 

28,  29,  1,  and  the  center  cutter. 
Hose  to  spray  bar,  dust  controller, 
replaced . 

9/15/71 

5.4 

69 

4,633 

Changed  2  cutters.  Nos.  22  and 

23.  Moled  4  ft  and  stopped  to 
install  full  ring  steel  supports 
alternately.  Also  had  trouble 
getting  grippers  to  hold. 

9/16/71 

8.5 

79 

4,712 

Alternately  moled  4  ft  and 
stopped  to  set  full  ring  support 
steel.  Lagging  behind  grippers 
was  required. 

9/17/71 

10.4 

84 

4,796 

Changed  3  cutters.  Nos.  23,  twice 
and  24  once.  Alternately  moled 

4  ft  and  stopped  to  set  full 
ring  support  steel.  At  Station 
1738+80,  rib  support  steel  was 
discontinued. 
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FOOTAGE  (Cont.) 


Date  Hours  Day 

Operated 

9/20/71  7.0  85 


Accumulated 


4,881 


9/21/71  11.9  140  5,021 


9/22/71  1.6  17  5,038 


9/30/71 


Remarks 


Changed  14  cutters,  Nos.  8,  10, 
11,  15,  16,  17,  18,  19,  21,  22, 
24,  26,  28,  and  29.  The  lubri¬ 
cating  system  to  the  cutter  head 
bearings  was  repaired. 

Changed  10  cutters,  Nos.  14,  20, 
23,  24,  25,  27,  3,  6,  8,  and  29. 
Mole  was  without  power  for  about 
7  hr  while  contractor  installed 
new  transformer. 

When  softer  ground  was  first 
encountered  at  11:30  a.m.,  the 
contractor  elected  to  stop  the 
mole  to  leave  it  in  stable  ground 
until  additional  funds  are  avail¬ 
able. 

Station  1735+88 


SUMMARY 


Item 

This  Month 

Previous 

Total 

Total  operating  time  in  hours 

115.0 

323.2 

438.2 

Total  footage 

1,295 

3,743 

5,038 

Rate  per  hour 

11.3 

11.6 

11.5 

Maximum  advance  per  day 

140 

209 

Jerico  Construction  Company,  subcontractor,  is  working  one  10-hr 

3 

shift  six  days  per  week.  About  207  yd  of  concrete  was  placed  for  the 

upstream  middle  apron,  right  and  left  wing  walls,  left  downstream  cutoff 

wall  and  the  remaining  spillway  floor  for  Water  Hollow  Diversion  Dam. 

3 

At  the  Water  Hollow  Tunnel  inlet  structure,  about  28  yd  of  concrete  was 
placed  for  the  upper  parts  of  the  walls  and  roof  sections. 
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Earthwork  and  laying  of  pipe  for  the  Layout  Feeder  Pipeline  were 
advanced  about  2,900  ft. 

L.  G.  Everest,  subcontractor,  discontinued  processing  concrete 
aggregates  until  after  the  winter  months.  Some  fine  sand  was  produced 
and  blended  with  the  coarse  sand  already  produced  to  obtain  sand  within 
specified  gradations.  This  sand  was  used  for  shotcrete  material  in 
Layout  Tunnel. 

Contract  earnings  for  September  were  $695,912.32.  Earnings  to  date 
are  $2,361,971.92. 
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IV.  WAGE  RATE  SPECIFICATIONS:  CENTRAL  UTAH.  1970-1971 

This  information  is  taken  from  the  Schedule,  General  Provisions, 
Specification,  and  Drawings,  Strawberry  Aqueduct,  Currant  and  Layout 
Tunnels,  Specifications  No.  DC-6855,  U.S.  Department  of  Interior,  Bureau 


of  Reclamation. 


Pursuant  to  the  provisions  of  the  DavisBacon  Act,  40 
USC.  276(a/,  as  amended,  the  Secretary  of  Labor  has 
determined  that  rates  of  wages  and  fringe  benefits 
listed  in  this  paragraph  are  those  prevailing  for  the 
classifications  specified  in  the  locality  of  the  work 
covered  by  these  specifications  and  said  rates  of  wages 
and  fringe  benefits  shall  be  the  minimum  rates  per  hour 
to  be  paid  for  the  work  covered  by  the  specifications. 

Fringe  benefit  payments  include  medical  and  hospital 
care,  compensation  for  injuries  or  illness  resulting  from 
occupational  activity,  unemployment  benefits,  life 
insurance,  disability  and  sickness  insurance,  accident 
insurance  (all  designated  as  health  and  welfare), 
pensions,  vacation  and  holiday  pay,  apprenticeship,  or 
other  similar  programs,  and  other  bona  fide  fringe 
benefits. 

While  the  wage  rates  and  fringe  benefits  shown  are  the 
minimum  rates  required  by  these  specifications  to  be 
paid  during  the  life  of  the  contract,  it  is  the 
responsibility  of  bklders  to  inform  themselves  as  to 
local  labor  conditions  such  as  the  length  of  workday  or 
workweek,  overtime  compensation,  fringe  benefit 
contributions,  labor  supply,  and  prospective  changes  or 
adjustments  of  wage  rates  or  fringe  benefits.  No 
increase  in  the  contract  price  will  be  allowed  or 
authorized  on  account  of  the  payment  of  wage  rates  or 
fringe  benefits  in  excess  of  those  listed  herein. 
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Decioiois  No.  AK-^,013  (3)  dated  6-16-70 


ASBESTOS  WnftKEIt S 

BOiURy^ots 

boiu  k^A^vs*  helpers 

CAm'NTrdti: 

Carp«9t*r«! 

Zone  1 :  (*0  bLUi  or  Uts  fro* 

Brifbu  Citv-Cfdir  City- 
tjnib-lo**n-«\d«n-Pric* - 
frovc-ti^hf  iMd-^*  1 1  Ltfcc 
City-V«rn«l) 


Zom  2:  (Cfyond  40  thru  SO  illn 

?rou  Srifh«B  City*C*dsr  Clty^ 
R4a*b-*log«fi-OK6«  n-Pr  lc« -Provof- 
BichfU  Id-Salt  L«k«  City- 
▼iml) 

Zom  3:  (&eyoM  SO  thrj  10  itUa  (r«^ 
■rlghna  Clty-C*dar  City- 
K-aah-Loaan-Oy dan-Pr  tea -Prav^. 
llchfiald-Salt  Uki  City- 
Varnal) 

Zona  *5  (Ovar  60  allaa  Iroai  Brighaa 
Clty-Cadar  Clty-Sanat>-Ln*a*- 
Og'an-rrica-Provo-Slclifia  Id- 
Salt  Uka  Cltr-Varnal) 

Saw  Filara,  Saw  Opa.,  k  Carpantara 
handling  craaaota  aatarlali 
Zona  1 
Zoaa  2 
Zona  ) 

Zona  6 

Nlllwrlghta  (All  Zonaa) 

Acauatlcal  Carpantara  (All  Zonaa) 

cncirr  ma.wws: 

Casa  at  Haiona 

t'oaa  1  (Tht  araa  laaa  than  65  allaa 
froa  any  county  aaat  aacapt 
Daygatt  County) 

Zona  2  (All  of  DACCVTT  CWNTY  and 
t fir  aiea  beyond  a  diatanca 
yreatat  than  a  radiua  of 
65  ollea  f rot  the  ta".aining 
county  aea*a) 


Machine  Op.:  M«»t  ic  Hoot  Ma’eriala; 
bpark  Proof int ;  Scaffold  f2)  to  UO  ^t 

Zona  1 
Zona  2 


BASIC 

HOIJkLY 

KATES 


6. Bl 
6.20 
6.00 
5.8h 


6.20 


2.8* 


2.17S 


2.20 


•  .*22 

2,17* 

7.20 
7,62* 

6.** 

6.20 


5.87 


6.27 


) 

6.00 

6.60 


FRINGE  BENEFITS  PAYMENTS 


,25 

.20 

.20 

.21 


.1* 


.15 


.15 


.1* 


.1* 

.15 

.15 

.15 

.15 

.15 


.15 


.15 

.15 


PINSIONJ  VACATION  APT  TO 


.62 

.55 

.55 

.15 


.20 


.20 


.20 


.20 


.20 

.20 

.20 

.20 

.20 

.20 


15  |  .20 


.70 


.20 

.20 


.60 

.60 


.12 


.12 


.13 


.12 


.12 

.12 

.12 

.12 

.11 

.11 


.11 


.1) 


.1) 

.1) 


.02 

.02 


.02 


.02 


.02 


.02 


.02 

.02 

.0! 

.02 

.02 

.02 
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Decision  No.  AK-2,013  (3) 
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,:l*Tw 41.1,  I.'.'.iTh,  .^.id 

lupin** ,  finirhlnp  *ni  texturing 
(sun:  or  machine ) 

EtFCtaiCUNS: 

Ctcht-DtvW  (Thtt  pottion  of  DtvU  Co. 
Wing  north  of  the  ulit  pHtlUll- 
Wt  btr  Count Iti. 

LWctrlcltn* 

Cobit  Spllctrt 

Boo  Ildtr-Hffgtn-Rlch  Countlto. 

Kite trir loni  . 

Ctblt  Spllctr* 

Stlt  Ltkt  County  1  thtt  portion  of 
Dttlt  County  lying  toutb  of  tht  *lit 
ptrtlltli  tnd  thtt  portion  of  Utth 
County  lying  north  of  th*  *Oth 
ptrtlltl. 

10  ■! ■  Ettt  or  Wttt  troo  Inttrttttt 
Boy  dlSj 
•lie tr(c itni 
Ctblt  Spllctrt 

Poor  10  ■!.  Kttt  or  Wtit  troo 
Inttrttttt  Hoy  E15; 
lltctric  Uni 
Ctblt  Spllctrt 

But  Into  r  of  Stott. 

Eltctrlc  Uni 
Ctblt  Spllctrt 

ELEVATOR  CONSTRICTORS 
ELEVATOR  CONSTRUCTORS'  HELPERS 
ELEVATOR  CONSTRUCTORS’  HELPVS  (flOS.) 
CLAZ  ins 
IRONWORK  VS : 

Orunttttl-Rtlnf trelng-Vttei  (rictor. 
Stncturtl 
LABORERS : 

•rick  Ttndtrt  - 
Vltittrort*  Ttndtrt 
LATHERS 
LB  AO  BlIRNRRS 
LINE  CONSTRUCTION: 

Ctblt  Spllttri 
Lintacn 

Lint  Equipment  Optrttor 
Httd  Croundntn 
Groundatn 


BASIC 

FRINGE  BENEFITS  PAYMENTS 

HOU KLY 
RATES 

HU 

rCHMOMt 

VACATIO* 

AFP.  TW. 

OTKIH 

5.  .15 

.16 

.12 

.02 

6.2C 

l.*l 

.1* 

.1* 

11 

It 

5/101 

5/101 

T.iO 

7.  »S 

.IS 

.1* 

It 

11 

5/101 

5/101 

*.2o 

*.*5 

.IS 

.1* 

11 

11 

S/101 

1/101 

*.70 

*.*5 

.1* 

.1* 

11 

11 

S/101 
•  /»*• 

7.70 

7.05 

.1* 

.1* 

11 

It 

•/lot 

i/ioi 

5.54 

.14 

.1*5 

2Vi 

70VJR 

501 

.1* 

.1*5 

2%** 

*.S* 

.1* 

fc 

*.*75 

.25 

.25 

.025 

4.65 

.15 

.25 

5.195 

.20 

.25 

.01 

.01 

5. *5 
5.10 

.20 

.15 

.*0 

c 

*.57 

5.11 

5.15 

*.*7 

*.05 

.15 

.15 

.15 

.15 

.15 

11 

11 

11 

11 

11 

5/01 

S/»t 

5A1 

5/*l 

5A1 
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PAINITPS: 

Area  Nnrth  of  Mai  Parallel. 

Brush 

Sprav;  Structural  Steel;  Swing  Stag* 
Steeple  .lack  Work 

Penalnl:  •  r  rt  pf _ le'e. 

bruin;  tr-1  ler :  I  aper  hanger  :  Shaft 
fiocfc  Taf-ct 

Brush  (Suing  stage);  Rrueh  (Steel  * 
Bridge);  Spray  A  Sandblaater; 
Steeple  Jack 

Spray  (Suing  Stage);  Sprat  (Steel  k 
■ridge);  Sandblaater  (String  Stage); 
and  apeclal  Coating  Applicator 

PlUDSrvTpirN;  Bridge,  Wharf,  k  Dock 
Carpe.ntera,  Blegera,  Booa  Hen 

rUSTPSSSS 

PUfQFiiS;  plpeflttara  k  Stesef lttare : 
Zona  1.  IS  ail.  radlua  froa  center  of 
each  city,  naaely  Salt  Late 
City,  Ogden  and  Provo 
Zona  2-  Zaaia  1  plua  IS  allaa 
lana  J.  Zona  2  plua  IS  allaa 
Sana  A-  All  araea  beyond  Zone  3. 
KmSLaATlOS  k  AIR  COODITIOKIIC  J 
30  tone  nr  r  r  t 

Zaaa  1-  IS  tl7  radlua  froa  center 
of  each  city,  naaely  Salt 
Lake  City,  Oydea  and  Provo 
Zaaa  2-  Zone  1  plua  IS  allaa 
Zina  3-  Zone  2  plua  IS  allaa 
Zone  a.  All  araaa  beyond  Zona  3, 
Un'tr  SO  tom i 
All  i-c.vie 
■00703 

HC.rr  KTTAL  WOO KBPS 

grt  i*ruji  pittvrs 
TE1IAZZ0  W®1CRS 
nix  tJTTOS 

I 

■ILMLSt  lacelva  rata  preaerlbad  for 
craft  to  tfi lck  ualdlag  la 
Incidental. 

FOOTNOTES ; 


BASIC 

HOl.'VLY 

RATES 


A. SO 
4,  SO 
4.  SC 


4,87 

5.07 

5.27 


7.0* 

5.8* 


*.15 

*.*S 

(.80 

7.*5 


«.*5 

*.•0 

7.15 

7.50 

5.35 

5.55 

5. V’O 

6.  to 

s.oo 

i.oo 


FRINGE  BENEFITS  PAYMENTS 


Employer  contribute!  45  of  baalc  hourly  rate 
rate  for  6  northe  to  S  yearn*  earvlpe  an  Vacjs 
A  thiough  P. 


b,  Srplcyee  trail  receive  2  teeeka*  vacation  with  pay  aftpr  eoepletlon  of  o; 


.1* 

.;* 

.r* 


,u 

.i« 

.u 


.15 

.10 


.1* 

.1* 

.1* 

.1* 


.1* 

.1* 

.1* 

.1* 

.1* 

.10 

.1* 

.20 


PENSIONS  VACATION  APP  T« 


.12 

.12 

.12 


.20 

.20 


.20 

.20 

.20 

.20 


.20 

.20 

.20 

.20 


.10 

.10 

.30 


for  5  y* 
tlon  Pay! 


.13 


.01 

.01 

.01 


.01 

.01 

.01 


.02 

.01 


.04 

.0* 

.0* 

.0* 


.02 

.02 

.02 

.02 

.02 


.05 


pra*  eervlca  and  2%  baalc  hourly 
Credit,  j  *  Paid  Kblldayat 


service;  Gorlov**  wSo  haa  e*rv«d  cor.t  lnuouilv  with  oiy  waploye 


raeelve  >  third  wti’i  vacation.  7.  Paid  Ho  Li  day  a 


h  oy 
I 


for  tMl 


A  through  P  plua 


'?*  Of 

?a  yaara 
July  2*tA 


to 


c.  F  i h r  paid  lioMdaya:  A  throuph  P  fflut  Waa l  i  'uton* a  ftirthday  and  Good  Pjrlday, 

providing  **rloy«*  haa  wori**d  45  full  dtya  ('■.ring  tha  120  calendar  dayaj  prior  tc^ 
holldrv,  and  t  he  regular  acheduled  f#ork  dayij  immediately  p  racking  A  fop  l  owing 
th#  holiday. 


PAID  jrUi'«rSi 

A.r>w  i«rc'i  Pay;  B-Met>orial  Diy ;  C-l  n^tpandanc^  t»ti  *■ 
F-Cht 1  at *aa  Day . 


If  lag  DW 


tka 


FI 
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a m.  in  U a  State  of  Utah  within 
45  road  nile*  of  the  county  aeeti 
excluding  Leggett  County 

UJOTZiS 


ceour  l 


BASIC 

HOURLY 

RATES 


Met 


FRINGE  BENEFITS  PAYMENTS 


oTMcee 


Bonin ,  Carpenter  tender,  Ceeent 

flnleher  helper,  Chat  bonun,  Choker 
natter.  Clearing  A  grading.  Cleaning 
ot  equipment  1  parta  in  connection 
with  concrete,  Concrete  crew,  Dock- 
hand  k  cleaning  can,  Pence  ereetor 
a  lnateller  (includaa  inetallatlon 
k  erection  ot  fancea,  guard  raile, 
nedLan  raila,  reference  poet,  guide 
poet,  a  right-of-way  aurkera),Plagaen 
Pone  etrlppar,  Gardener  helper, 
Oenerel  laborer,  Griialep  operator 
( vtia t her  by  power  or  hand),  Group 
piap  eperatora,  Heater*  tender, 
Salyer*  (ell  eot  herein  eeparatety 
cleeeif led),  Bouae  nover,  Landaeaping 
helper,  laborer  a  oa  wrecking  a 
Denolltloe,  Nurseryman  helper, 
Pre-aaetermeo,  Slprap  nan  (hand 
placed),  Slopcr,  Spreader  h  welghaun, 
Stake  jnper,  Stripping  ft  cleaning 
ot  eteel  ft  pent.  Tool  dispatcher  ft 
checker  (teii  tie*).  Unloading  ft 
packing  ot  reinforclag  eteel  rod* 


.1* 


.25 


.0* 


Oft OCT  II 


Air  track  helper,  dephalt  raksre  ft 
ironere,  Dtapnan,  Cunlta  reboundeen, 
Send  ft  chain  eaw  operator  (bucking 
ft  fellieg  tUber),  J.  Teeper  ft 
atelier  type  taepera,  ratal  ton 
g.  ttar  (airport  paring  ft  klgtway) 
Operator  ft  tandere  of  pseuautlc  ft 
electric  tool*  ft  conpraaaor*  ft 
concrete  aaw.  Operator*  of  pc*«r- 
type  ton  elaanar  ft  ollleg  nachinaa, 
Pipe  wrapper.  Put  taoCar  ft  joint 
anker,  Power  type  buggiaa.  Roller*, 
tcreaa  ft  elaaaup  ran.  Signal  ft 
Puagie  on  concrete  conat ruction, 
Tenant  ft  belt  nan, 


4.43 


.15 


.25 


.0* 


Cl OCT  III 

■arko  rlbretory  roller  ft  aleilar  type, 
Conpaclng  aachlnta,  High  preaeure 
water  aoirlaaan,  Jackhaneer  ft  paveeai  t 
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LAB OKEBS -Coni 'd 

BASIC 

HOUI’I.Y 

KAItS 

PRINCE  BENEFITS  PAYMENTS 

Hfef 

pvNUomi 

VACITM 

A»P.  TIL 

OTMxaa 

CROUP  111-  Cont'd 

bracket,  Plpcliftr,  Powdernen  helper, 
Puepcrete  cpeietore,  Refinery  teak  1 
mat]  tliimta,  Sind  Rleatcra,  Send 
blailar  pot  tender.  Vibrator  operetor, 
Work  of  ell  type  uelng  cutting  torchei 
A  toole  needed  In  wrecking 

4.555 

.15 

.25 

j 

1 

\o% 

1 

CROUP  IV 

Air  trcck  A  core  dleaond  drlllere,  Drill 
necbenlc  (on  Job  elte),  High  eceler- 
operetlnt  Jeckheaner  or  breeker, 

Hello  vlbretore  A  elaller  typee  - 
70  Ibe.,  Multiple  elde  boon  driller. 
Wagon  driller 

4.68 

.15 

.25 

.0% 

CROUP  V 

C unite  (roundnen,  (unite  noeelenen,  (un 
rodnen,  Powdnrnaq 

t( 

5.03 

.1* 

.25 

.0* 

TUWWL  ARD  SHAFT  WCRU 

CROUP  I 
(Under|round) 

Underground  Le  bo  re  re 

4.0 

.1* 

.25 

.0* 

CROUP  11 
(Underground) 

Preekenen,  Chuckteoder,  Dunpneo, 
Powdernen  helper,  Puddler 

4.57 

.15 

.25 

CROUP  III 

7lfedarg round) 

Nipper,  Scraadiun,  Vibrator,  Tipun 

'4.63 

.15 

.25 

.0* 

GROUP  » 

1  Un".  er|  round) 

Cutting  necblne  operetor,  Drill  doctor, 
Plnleber,  Cunlte  gunmen,  nine  re,  Powde 
neke-up  oen,  Speder  A  Tuggere,  Steel- 
neo,  T Lab* nun 

4.73 

.15 

.25 

.Ok 

CPOl'P  V 

(Underground) 

Cunlte  (roundnen,  Cunlte  notelenen, 
Cunlte  rodnen 

5.03 

.15 

.25 

.oa 

CBOIfp_VI 

J\u6*  r*  round ) 

Shlf tar 

5.18 

.15 

.25 

.Ok 
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•uu  1 

POWER  tJUIWCNT  OPERATORS 


gtocp  l 

Cktlnut  Rodaan 

CROUP  II 

Aaphalt  Plant  Pinna  n j  Br«ka«n- 
Locoaotl*a;  Elarator  Operator ;  flr«Mn;| 
Hydraulic  Monitor!  Matarlal  Loadar  or 
Convayor  Oparator;  Partaaan  -  Plaid; 
Grada  Sattar  -  Rapalraan  Halpar  -  Flaldl 


BASIC 

HOURLY 

RATES 


FRINGE  BENEFITS  PAYMENTS 


Mat  nations  I  vacation  |  arr.  ra 


4.69 


5.09 


CROUP  111 

Air  Coapraaaor  Oparator;  Concrata 
Mlxar  Oparator  (aklp  typa);  Concrata 
Puap  or  Puapcrata  Cun  Oparator;  Englnaaj* 
Dlnkay  Oparator;  Ca  nan  tor  (100  KW  or 
orar);  Nlzar  Boi  Oparator  (Concrata  or 
Aaphalt  plant)  (contlnuoua  ail  or  alall^r) ; 
Puap  Oparator;  Salf-propallad,  Auto¬ 
matically  appllad  concrata  eurln* 
aacLlna  (on  atraata,  highways,  alrporta] 
and  canals);  Scraadaan;  Truck  Crana 
Ollar  I  5.3« 


CROUP  IY 

Ballast  Jack  Taapar;  BalUat  Rafulator; 
Balls  at  Thapar-Multljila  Purpoaa ;  front 
Bad  Loadar  np  to  and  lnelading  1  e.y. 

St nuk  K3C;  Holst  Oparator  -  1  Draij 
Lina  Haatar;  Lubrication  *  Sartlea 
Bnflaaar  (NoblAa  k  Craaaa  Rack);  Slip 
Fbm 


CROUP  IV-A 
Haary  Duty  Rapal 
Paras nant  Shop 


and  Waldnr 


CROUP  V 

Air  Coapraiaor  Oparator  (two  or  aorn 
coapraaaora) ;  Batch  Oparator  (Aaphalt 
Plant);  Mo  to  nan;  Pavebant  Braakar 
Opantor  (Iosco  A  slallnr  typa); 

Jiuttlacsr;  1  ~\1 1  Subbar 
Tlrad  Tractor* ;  basil  Salf-propallad 
Pnauaatlc  Rollan;  Touanaoblla  Oparator| 
Wald  ln«  Ms  chin  a  (2  or  aora) 


5.51 


5.59 


5.59 


.41 


.41 


.a 


.a 


.a 


.45 


.45 


.45 


.45 


.45 


.45 


.20 


.20 


.20 


.20 


.20 


.20 


.05 


.05 


.05 


.05 


.05 


.05 
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H*  »TR  l.JUHrNT  I.fL*AT.Kj  (Cont'-i) 


BASIC 
HOURLY 
RATf  S 


FRINGE  BENEFITj  PAYMENTS 


PENSIONS  ;  VACATION  APP  TB 


G^.IT  U 

A '.rr»  v  Vi(i:«r  hois*.;  Ctnrrete 
*  e ;  f  *r  .i*l  un»t  ~n  s»  reeta, 
hlpnwan,  sirforts  uni  -anai*. ;; 
lr-g;ne*r,  »>.  •  •  motive  ;  >ork  L.ft 
(construct:  r.  -ot  alte.;  KcI^jiq  Loader 
(•nl  siKi.ar  ;  Meginnte  Internal  Fl*  1  i 
blab  Vitralur  (on  a»n^rte,  bl^r-ays, 
canal*  and  varehouaua; ;  Hixentotile 
Operator;  fl;«  ivr.ding  Kachir.a  operator; 
Pip«  Cleaning  Machine;  Pipe  «rA^p:n^ 
Machine;  Hoad  Mixing  Maris) Re  iterator; 
Roaa  Carrier,  or  similar  type,  iktall 
Rubber  Tired  Tra -tor  (uitb  attacnaents, 
Including  backhoe);  .ull  Tractor  with 
Hoorn;  Surface  Haatar  (self-propelled; 
Loader  Operator  (over  '  c.y.  up  to  and 
Including  i  c.y.  struck  K HZ);  r ewer 
Jubdo  Curator  (tatting  elip  forms, 
ate.  In  tunnels);  baa  11  Rubber  Tired 
Trenching  Machine 

GROUP  VII 

bridge  Crane  i  Chip  box  Spreader 
(fleherty  ty;a  and  similar);  Concrete 
Mixer  Operator  (paving  or  batch  plant! ; 
Deck  Engineer*  (Karine);  Drilling 
Machine  operator  (well  or  dlemcno/; 

Dual  Drua  Kuera;  Elevating  Gracer  Cpr . ; 
fuller  Kenyon  Pump  and  slaller  types; 
Heavy  IXity  Rotary  Drill  R  ga  (auch#s 
quarry  aaster,  Joy  drill*  or  equal; 

Hnlat  Operator  -  2  drums;  Instrument 
Man;  Mechanical  finisher  Operator 
(Asphalt  or  concrete^  ;  Mine  or  br.aft 
Holat;  Peveaent  Breaker  (Peva&ent 
breaker  with  coapressor  combination) ; 
Pevamenl  Breaker,  truck  mounted, 
coapreaeor  coabination;  Refrigeration 
Plant;  Self-Propelled  Pipeline, 
trapping  machine  (Perault,  CRO,  cr 
elailer  types);  Glusher  operator; 

Tractor  Operator  (b/.aep*e  foot  and 
encoding  *•;  tipaent/ 1  Trer^oing 
Machine;  Trector-Ccimpreesor  Drill 
Combination;  No-  Joint  Pipe  laying 
Machine ;  I  *11  High-Lift  (40  ft.  or 
einilarj;  Roller  Operator  or  ■elf- 
propelled  conpector 


&5» 
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•kith  i 

PC.T.A  tJlIBgKT  OjTMlUto  (Cont'd) 


BASIC 

HOUNLY 

RATES 


Htf 


GROUP  V1I-A 

Side  boca  c|)erator;  Asphalt  Plant 
Engineer;  Engineer  Crushing  Plant; 
Tractor  Operator  (bulldoaar,  acrapar  or 
drag-ty;vi  anoval  or  too®  attachment) 

(up  to  and  including  U-7  or  similar) 


.a 


FRINGE  BENEFITS  PAYMENTS 


.45 


.20 


.05 


GROUP  VIII 

Do -Nor  loader  and  .‘dans  f.legradar; 

Euclid  Loader  and  alailar  typos ; 

Chicago  Boon  (Including  Stiff  lag  and 
ahaar  pola)  ;  r;i!.»P  of  Party; 

Coablnatlon  S.’ usher  and  Motor  Gperaotr; 
Concrata  batch  riant  (Multipla  unit) ; 
Eoabring  Skoopar  (or  aLailar.  up  to  5e.  r. 
Struck  MKC);  Loader  Operator  over  2  c.y 
up  to  and  including  5  c.y.  Struck  HRC; 
Mucking  Ha  china  Lparstor;  Sauraan  Typo 
Dragline  (undar  5  c.y.  Struck  HRC) ; 
Salf-Propallad  Elevating  Grade  Plana;  | 
Soil  Stabil lsar  IP  A  H  or  equal);  Sut- 
gradar  (autoaatlc  aubgradar  -  fine  - 
gradar);  Salf-Propallad  Boob  type 
lifting  device;  Mechanical  Trench  Shial  I; 
Rubber  Tirad  Scraper  (undar  35  c.y. 

Struck  MRC);  Tri-Batch  Paver;  Tunnel 
(Mole  or  alailar) 

GROUP  VII1-A 

Heavy  duty  rtaaplraan  or  balder;  Tractor 
Operator  Bulldoiar,  Scraper  or  Drag  typ  i 
Shovel  or  boon  Attachaant  larger  than 
D-7  or  alailar 

CROUP  IE 

Combination  Hliar  A  Compressor  (Cunlte) 
Hlghllna  Cableway  Signalaan;  Motor 
Petrol;  Tovar  Crane  (Linden  type  or 
alailar  designs  and  capacity)  (in  the 
erection,  disaantllng  A  moving  of 
equlpaent  there  shall  be  additional 
Operator  Engineer) 


4.35 


6*40 


6.45 


.a 


.41 


.a 


.45 


.45 


.45 


.20 


.20 


.20 


.05 


.05 


CROUP  1 

(l£i  Ceblevay  Operator  (Signalaan 
required);  Lift  Slab  Machine  (Vegborg  * 
alailar  typea);  Locomotive  (over  100 
tons)  (single  or  aultipla  units);  Pra- 
Streas  wire  Wrapping  Machine;  Sauraan 
type  dragline  (5  c.y.  Struck  MKC  and 
ovar 


V-51 
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Decision  Ho.  AK-2,013  (3) 


•mi  i 


ILrtR  EJJimtfC  CPERA?'.  3o  Corn'd) 

BASIC 

HOURLY 

RATES 

FRINGE  BENEFITS  PAYMENTS 

h  a  v 

PENSIONS 

VACATION 

APP  TR 

OTHERS 

GRUlpJ  {Coat’d) 

Tractor  Tan’rx  iyrar^rs;  ik  10.20  etc. 
(Tanira  brmr/er);  l* reversal  Equipment 
Operator  (ar.ovai,  wackhoa,  dragline, 
dnrrlri,  derrick  Ur^a,  claiunell  crane, 
gradall,  etc.  tup  tc  end  including  5 
c.y./  struck  KitC ;  Lca.ier  (ovar  5  r.y.  up 
to  end  including  12  c.y.  Struck  KRC) 

6.57 

.a 

.45 

.20 

.05 

GROUP  II 

Au  toaa lie  Concrete  blip  Pen.  Paver 
(Gredeaetter,  bereedman)  ;  Koehring 
Skoopsr  (or  elxilar)  (5  cu.  yds.  A  over 
Struck  MRC);  Multiple  Propulsion  Power 
Unit  Earth  Hovars  (up  to  and  Including 

75  c.y.  Struck  MRC;;  p.c»ote  Controlled 
Crane.  and  Derricks;  Power  Equipment 
with  .hovel-type  controls  (over  5  eu.  yd 
up  to  and  Including  7  cu.  yds.  Struck 
MRC;  Rubber  Tired  Scraper  (J5  cu.  jde. 
end  over  Struck  MRC) ;  Self-Propelled 
Conpactor  (with  multiple  propulsion 
pwoer  units);  Slip  Porn  Pavar  (concrete 
or  asphelt)  (l  operator  and  2  ecreedaan 
when  required);  Tandem  Tractors;  Tower 
Cranes  Mobile 

s. 

6.90 

.a 

.45 

.20 

.05 

CROUP  II -A 

Multi-purpose  Earth  Moving  Machines; 

(Two  (2)  or  more  scrapers  (over  75  c.y. 
Struck  NRC);  Power  Shovels  a  Draglines 
(over  7  c.y.  Struck  KRC;  Loader  otar 

12  c.y.  Struck  MRC) 

7.62 

.a 

1 

.45 

.20 

.05 

CROUP  II-  B 

Operator  of  Helicopter  (whan  uaad  In 
traction  work) 

7.96 

•a 

.45 

.20 

.05 
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~  »«A-2 

power  uiirrtn  orruiou 

BASIC 

HOUKLY 

RATES 

FRINGE  BENEFITS  PAYNENTS 

Hkl 

miilOHi 

VACATIO* 

APP.  Til. 

OTHBM 

griTP  l 

Chi  loan  |  lodaan 

5.89 

.41 

.45 

.20 

.05 

group  i! 

Alpha* t  Flint  flrrain:  Bnkiaio- 
Locoaotlrii  tliriter  Opintori  Plnaani 
H/dnuilc  Monitor i  Mitirlil  Loidir  or 
CoDvipr  Opintori  Partisan  -  Plild| 
Gridi  Sittar  -  Kapi tnon  Htlpir  -  Flild 

6.09 

.41 

.45 

.20 

.05 

GROUP  III 

Air  Caaprmnr  Opintor  j  Crncnti 

MUir  Opintor  (skip  tppo)j  Co-.'-nti 
Puap  nr  Fuipcriti  Gun  Opintor  j  Inplin 
Dlnkiy  Opintori  Ginintor  ('00  Ik  or 
e«tr)i  Mlnr  Box  Opinlnr  (Concnti  nr 
Alpha  It  pUnt)  (continuous  nix  or  ilstl 
Puap  Opintori  Silf-propillid,  Auto- 
aatlcilly  ippllid  concnti  curlnf 
aaellns  (••  itmti,  bl|hwiy«,  ilrporti 
•nd  cutlili  Scnidann  |  Truck  Crmnt 
Ollir 

r, 

ir), 

6.38 

.u 

.45 

.20 

.05 

GROUP  IT 

tnlUit  Jock  Turpiri  Billnt  kigulatori 
kill  it  Tiapir-Multlpli  Purponi  Front 
tad  Loidir  up  Vo  and  lncludlnf  1  e.jr. 
(track  KRS|  Rolat  Opintor  •  1  Omj 
Ltai  Mia  tar  I  Lubrication  4  knl« 
loflmr  (kbLLa  A  Oman  Rack)  |  dtp 
Para  Puapi 

6.51 

.41 

.45 

.20 

.05 

p^vr-iY-t 

Hnv  Duty  RapaUaaii  and  Mildir 
Piraanint  Shop 

6.59 

.a 

.45 

.20 

.05 

GROUP  » 

Air  Coapnnor  Opintor  (tvo  nr  son 
coaprmori) ;  Bitch  Opintor  (Aiphait 
Pint)  |  Kotonaa;  Pinaint  hrrikir 
Opintor  (Laicn  A  ilallir  lypi); 
Sl(nalnai.|  fhullliciri  Saall  V-ubbir 
Tlnd  Tnctoni  Su.ll  Silf-prnpillid 
Pmuntlc  Mol  tin  |  TouiraobUi  Opintor 
kldiaf  Macblai  (2  or  non) 

6.59 

1 

.a 

.45 

.20 

.05 
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**ARM2 


t.TR  lu'JHW.HT  OITMMS  (Coat’d) 


BASIC 

HOURLY 

RATES 


FRINGE  BENEFITS  PAYMENTS 

HU  I  HHMOm  I  VACATtOW  |  *PP-  Tg.  |  OTItI 


CR-l'P  VI 

l.frm  trued  A  tugger  holit;  Concrete 
S«u>  (»elf  Propelled  unit  on  *treata, 
highway*,  airport*  and  canal*)  i 
Inglnaar,  Locoaotl**;  Fork  Lift 
(ccnatruetlon  Job  •  lta ) ;  Rolaan  Loader 
(and  alallar)  i  Kaglanle  Internal  Full 
Slab  Vibrator  (on  airport*,  hlghwaya, 
canal*  and  warehoueea) ;  Nlkeraoblle 
Cparatori  ripa  Banding  Hachlna  Oparatoi | 
Flpa  Claanlng  Machine;  Plpa  Wrapping 
Hachlna;  Road  Mixing  Hacblaa  Cparatori 
Ro**  Carrlar,  or  alallar  type;  Sm*11 
Rutter  Tlrad  Tractor  (with  ettachaenla, 
Including  tack  boa)  i  SmI  1  Traetor  ulth 
Boon ;  Surface  Naatar  (aal f-propallad | 
Loadar  Oparator  (oter  I  C.J.  up  ta  aid 
Including  2  e.y.  atruek  HRC)j  Porer 
Juibo  Oparator  (aattlng  *llp  form, 
ate.  In  tunaala)|  Snail  kubbar  Tlrad 
Tranchlng  Hacblaa 

GH'-Ur  Vll 

Bridge  Crana;  Cblp  Bo(  Spraadar 
(flaherty  type  and  allllar)|  Concrete 
Hlxar  Oparator  (pacing  or  batch  plant) | 
Dock  tnglnaara  (Marina) |  Drilling 
Hachlna  Operator  (call  or  dlanond)| 

Dual  Drua  Mixer*;  Hireling  Grader  Opr.  | 
Fuller  Kenyon  Puap  and  alallar  typaai 
Meaty  Duly  Rotary  Drill  Riga  (auck  a* 
quarry  nailer,  Joy  drill*  or  aquali 
Mont  Oparator  -  2  drum*;  lnairuaaat 
Han;  Mechanical  Flnleher  Oparator 
(Aaphalt  or  conerata) |  Mina  or  Shaft 
Monti  Facaaant  Breaker  (Pereaent 
Breaker  ullh  coapraiaor  oonblnatloa) | 

Pa  tenant  Iraakar,  truck  nounted, 
coapraiaor  eoablnatloo;  Refrigeration 
Flint;  Salf-Fropallad  Pipeline, 

Wrapping  aaeblna  (Pereull,  CRC,  or 
alallar  type*);  Slu*har  Oparatori 
Traetor  Oparator  (Sheep's  Tool  and 
aoapactlng  equipment)  |  Trenching 
Machine;  Treetor-Coapreaeor  Drill 
Coablnatloni  lo-  Joint  Pipe  Laying 
Machinal  Lull  High-Lift  (40  ft.  ar 
alallar) i  Roller  Operator  ar  aolf- 
propallad  aaopaator 


.41  -45 
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FU.IR  tJUFKIST  OT.RlTtm  (Cool'd) 


BASIC 

HOUKLY 

RATES 


FRINGE  BENEFITS  PAYMENTS 
Net  I  rtxnoot  |  wacatkw  irr  t» 


gripp  i  (Confd) 

Tractor  Ttndvx  Scraper*  i  I*  10.20  ole. 
(T.nlrn  Srrepvr);  I'nlwerael  Equipment 
Operator  (*ho»el,  Loekhoe,  dr*gllne, 
derrick,  derrick  Urge,  cleuhall  creae, 
gradtll,  elc.  (up  to  end  Including  5 
c.j.)  Struck  KRC;  Loader  (over  5  e.».  e| 
to  end  Including  12  C.J.  Struck  NIC) 

CBCUP  11 

hutoullc  Concrete  Slip  Fore  Paver 
(Gredaietter,  Screrdaen);  Koehrlog 
Skooper  (or  klnller)  (5  eu.  jde.  A  over 
Struck  Kite) ;  Multiple  PropuUlon  Power 
Unit  Eerth  Mover*  (up  to  end  Including 
75  c.j.  Struck  KRC);  Resole  Controlled 
Crenee  end  Derrlckij  rower  Equipment 
with  ehoeel-lrpe  eonlrolk  (over  5  eu.  ji 
up  to  end  including  7  eu.  jd*.  Struck 
KRC ;  Rubber  Tired  Sereper  (35  eu.  jde. 
end  oeer  Struck  KRC);  Self-Propelled 
Conpector  (with  kultlple  pro^Ualoe 
pwoer  unite) ;  Slip  form  fever  (coeereU 
or  eephelt)  (1  ope  re  lor  end  2  ecreedau 
when  required);  Tendoa  Trectorei  Tower 
Crenee  Mobile 

GROUP  II-A 

Mul 1 1-pur  po»e  Eerth  Moving  Mechlnee; 
(Two  (2)  or  wore  ecropere  (over  75  c.j. 
Struck  NRC);  Power  Shovele  *  Dreg 1  tone 
(ever  7  c.j.  Struck  KfiC|  Loader  ever 
12  C.J.  Struck  KRC) 

CTOTf  1I-B 

Operator  of  RelleopUr  (wham  need  la 
erne t lee  work) 


.45  .» 
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moiviic 

CtOHP  1 

(a)  Aaalacant  to  Engineer  (Flranan, 

Oiler,  Deckhand 

(b)  Coopreaaor  Operator  (Elactrleel ly, 

|aa  or  diaaal  powared,  ate.) 

(c)  Truck  Crane  Oiler 

c»ogr  7 

(a)  Operator  of  Truer  Uolat 
(Uolatlng  naterlala  only) 

(b)  Coopreaaor  Operator  (2  to  i) 
(electrically,  (ti  or  diaaal 
poured )  1  Generator  op.  (alactrlc* 

ally,  gaa  or  diaaal  driven,  100 
I.U.);  Funp  op.  (2  to  6) ;  Welding 
aacblaa  op.  (2  to  6)  (Gee  or  dlaaa  L 
powered ) 

6IOCT  3 

"a"  Fraeea;  Dock  engineer;  Fork  Lift 
Operator;  Saif  propelled  tone  Type  Lift- 
lag  Device 


BASIC 
tint’ll  v 

FRINGE  BENEFITS  PAYMENTS 

RATES 

Hkf 

PCHUOMI  VACATION  AFP.  TR. 

OTMKM 

5.60 

.U 

.45  .»  .05 

5.83 

.41 

.45  .20  .05 

5.92 

.41 

.45  .  20  .05 

6.35 

.a 

.45  .  20  .05 

.45  .20  .05 


.45  •»  .05 


Heavy  Duty  tapalraan  and/or  Welder 
C  Spiff  4 

Operatic  Ki^loeer  In  Uau  of  aeatetant 
to  ongloear  tending  hollar  or  eoaprmaaor 
attached  to  era na  pllcdrlaar;  Operator 
of  Filed  riving  xiga,  akU  or  floating  & 
derrick  bargee;  Operator  of  diaaal  or 
gaaollne  powered  Crane  Plledrlver  (a/o 
boiler)  op  to  b  Incl.  1  cu,  yd,  rating; 
Track  Crane  Op.  (op  to  V  loci.  25  tone) 
(haletlng  aieterlal  only)  (aaalatant  to 
aaglaoar  required)  (not  driving  pllee) 

BBRJ 

Operator  of  diaaal  or  geaollna  powered 
Crane  Plledrlver  (v/o  loiter)  over 
I  cu.  yd.  rating;  Operator  of  Crane 
Wateen,  fUah  boiler,  pnep  or  cOTpraaao 
ottadwl);  Op.  of  attaa  powered  caviar 
or  Oolveraal  Type  Driver  (kayeond  or 
alaUlar  typo);  Track  Cr.ee  Op.  (ovar  25 
tone  (Kota ting  eaterlal  or  parfonalng 
pllodrivlng  work) 


.45  .20  .05 
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Ctaal  E faction 

BATC 

FRINGE  BENEFITS  PAYMENTS 

RATES 

NOV 

PKitnofit 

vac  a  nor 

AFP.  TIL 

OTMCKf 

CBorr  1 

Aaalatant  to  In*l*arr  (OLUr) 

5.90 

.41 

.45 

.20 

.05 

C80TTP  2 

AatUuat  to  Ki|iMit  (Truck  Cum 
OLlar);  Coaprvaaor;  C«Mratort 
gaacUn  or  dUaal  4rl»n  C M) 

6.16 

.41 

1 

.45 

.20 

.05 

cs«ir  i 

yactleaa  ar  Cost In* t  Leo  (1  te  A)| 

Da c k  laglMir;  Icatru-ant  ftui 
Sl*nalaan  (ualr*  aaclaalcil  afutp- 
■at  )|  Park  lift 

6.83 

.41 

.45 

.20 

.05 

GOOD?  * 

■•ary  Gut 7  Aapalraaa  j  Tractor  Of. 

6.94 

.41 

.45 

.20 

.05 

CKKJP  k-A 

CouLutloa  Alary  Tuty  Aapalraaa) 

Haidar 

7.13 

.41 

.45 

.20 

.05 

GROUP  » 

"A1  Vraaa  at  Uaa  Track |  laaa  Cat  | 
Cklca|a  Imi;  Crawler  Craaaa  A 

Track  Crtaaa  (IS  Wil  a.r.c.  «r  laal) 
SaUpropallad  Typa  llitla* 

Darien  Six* la  Drua  lolati  Tu**ar 
Haiti  |  CkLaf  at  Party 

7.45 

.a 

.45 

.20 

.05 

CtOOP  * 

Crawl* r  Craaaa  A  Track  Cranaa  (a* at 

IS  taaa  a.r.c. >1  Carrier.  (1  ay*, 
rtqaltal  wkaa  call-*  a:  Sica  raaala  * 
(tea  kalat  )|  ht-.UUa*  UbU*ray 
( S If aa laal  r*aulr*d)i  7r»**t  Craaaa 
Hokllai  Dalaaraal  llailar  A  Tewar 
Craaaa  (A  atatlar  type*)  (la  t.A 
ttattlca,  lluintllrl  A  *arl*J  *1 
a^lput,  tkar*  aball  ta  aa  addl* 
tlaaal  Operatic*  to«laa*r)i  Two  ar 
moco  Drua  Haiti 

7.73 

.41 

.45 

.20 

.05 

cao”P  1 

Oparator  ef  BalUeptar 

8.77 

.41 

.45 

.20 

j 

.05 
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ReDroduced  Irom 
best  copy- 


NJBl  1 

Tnu»;.  iiitlViJt.*. 


cure  Tf*u  -  wit'T  icvfli 

(bolt  ml  or  rid  t)  ( 1 
Purp.tcr  Truck:;,  Luc  lid 
TUrniwirons ,  T-.rrvirccka 
Less  than  8  yards 
6  ysrus  4  Logs  tl.in  1 
U  yards  4  less  titan 
J5  yards  &  less  than 
55  yards  4  Loss  than 
75  yards  4  Less  than 
95  yards  4  Los*  than 
Osar  105  yards 

Whenever  doubles  era  used,  the  driver# 
will  bo  paid  under  the  appropriate 
yardage  schedule  es  outlined  plus  257 
per  hour. 

When  three  (3)  or  Bore  trailers  era  put 
into  operation,  use  the  appropriate 
yardage  rato  es  outlined  above  plus  257 
per  hour  for  the  third  (3rd)  and  each 
additional  trailer  vbich  la  pull ad  tf 
•na  power  unit. 

Whenever  additional  power  units  are 
used  and  oparated  by  one  driver,  he 
shall  receive  en  additional  507  per 
hour  for  operating  such  equipment. 

PUT  RACK  TRUCKS,  Bulk  Cenent  Trucks. 
Transport  Trucks,  Seed-Trailer  (Gerry' 
lag  capacity)! 

Pickup 

Leee  then  10  tons 
10  tone  <•  lose  than  15  tone 
15  tone  It  leee  than  20  tone 
20  tone  ft  over 

Beployae,.  driving  any  of  the  above  on 
Plat  Rack  Trucks  with  Winch,  Holet 
ItUchssante  or  *A*  Fmnos  ihall  re  cal’ a 
1,125  additional  par  hour  when  auch 
winch  holet  or  "A*  Prtnee  ere  In  uee. 

When  drlvare  load  and  unload  tisck  canon'  , 
esplotlvet  and/or  railroad  ties  by  hat  7 
they  shall  receive  1.15  per  hour  addi- 
tleael  for  actual  boars  worked. 


5.125 

5.20 

5.35 

5.45 

5.60 


ntsic 

imiHi.v 

KATKS 


Cn piclty 
ncluiilng 
typo  trucks, 
re  4  UuapcreUj) 

L  yards 
35  yard# 

55  yards 
75  yards 
95  yarda 
105  yards 


5.30  S 
5.45 
5.60 
5.30 
6.00 
6.20 
6.40 
6.52 


I 
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■•uu  1 


TRUCK  3RIVEH5  -  COIiT'D 


TRANSIT  MIX  TflUCK ji 

41  yar  ls  capacity  L  !*•» 

Ovrr  4“  yards  capacity  to  <i  lncludl 

b*  yirji 

Over  t;  yard* 

Concrete  punplng  truck* 

WA7LR,  FUEL  6  OIL  TANK  TRUCXS: 

0  to  1200  fill0"* 

1200  to  2500  gallon* 

2500  to  4000  gollois* 

4000  to  60>3  galloaa 
6000  gallon*  to  Its*  than  10,000 
10,000  gallon*  to  lata  than  15.000 

gallon*  _ 

15,000  gallon*  to  1***  than  20,000 
gallons 

20,000  gallon*  to  1***  Uuin  25,000 
gallon* 

Ovar  25,000  gallon* 

Whenever  two  uat*r  tank*  *r*  pullad, 
drlv.r  will  receive  25#  P*r  hour  In 
addition  to  the  contained  «at*r  gnUanni 
rat**. 

Oil  Spr*ad*r  Operator  (on  alngl*  nan 
operation  vh»r*  boot  nan  l*  not 
required) 

CONSTRUCTION  JOB  SIBVICDa»i 
T»l*»coplc  Kanllft  Truck 
Fork  Lift  (und*r  6  ton*)  *  Stmddl*. 
Truck 

Truck  Drl»*r  H*lp*r 
Chauffeurs 

Bunkar  6  Truck  Loadara 
Uerehnusenan  (Counter  Clark) 
Uarshousesen 

Uiahara,  Creaaara  6  Tirana* 

Caa  Station  Attendant* 

Fork  L!rt  (Ovar  6  ton*) 

M* tar l*i  Engineer 
Taanatar  Mechanic 
TaanaUr  Mechanic  Helper 
Taanatar  Waldar 
Taanatar  Driving  Two  Horae* 

TaanaUr  Driving  Tbra*  or  Mora  Horae* 


FRINGE  BENEFITS  PAYMENTS 


I  pennon*  vacanoa  |  *»■  T«. 


6.25 

6.50 

6.75 

7.00 


6.00 


5.» 

5.50 
5.075 
5.075  | 
5.20 
5.25 
5.125 
5.275 
5.075  I 
5.*° 
5.62 
6.31 
6.06 

5.175 


.SC 

.SO 

.50 

.30 


.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 


.20 

.20 

.20 

.20 


.20 

.20 

.20 

.20 

.20 

.20 

.20 

.20 

.20 


.30 


.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30  I 

.30 


.30 

.30 

.30 

.30 


.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 


.20 


.20 

.20 
.20 
.20 
.20 
.20 
.20 
.20 
.20 
.20 
.20 
.2°  I 
.20 
.20 
.2° 


.30 


.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 

.30 
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■AREA  2 


TRUCK  DRIVERS  -  CUNT'U 


TRANSIT  MIX  TRUCKS: 

4$  yard*  capacity  4  less 
Over  ii  yirda  capacity  to  U  lncludl 
faA  yards 
Over  6$  yards 
Concrete  puaplng  truckn 

MATER,  FUEL  4  OIL  TANK  TRUCKS: 

0  to  1200  gallons 
1200  to  2500  gallons 
2500  to  4000  gallons 
4000  to  6000  gallon* 

6000  gallons  to  laaa  than  10,000 
10,000  gallons  to  laaa  than  15,000 
gallons 

15,000  gallons  to  lasa  than  20,000 
gallons 

20,000  gallons  to  lasa  than  25,000 
gallons 

Over  25,000  gallons 

Whenever  two  water  tanka  *r*  pulled, 
driver  will  receive  25 t  per  hour  In 
addition  to  tha  ccaihlnad  water  gallon 

rates. 

Oil  Spreadar  Operator  (on  single  nan 
operation  whara  boot  nan  1*  not 
required) 

CONSTRUCTION  JOB  SERVICDIEN: 

Teleacoplc  Hanllft  Truck 
Fork  Lift  (under  6  tons)  &  Straddle 
Truck 

Truck  Driver  Helper 
Chauffeur* 

Bunker  6  Truck  Loadara 
Uarehouaaaen  (Counter  Clerk) 
Marehouoeaen 

Maehera,  Greaaara  4  Tlranen 

Caa  Station  Attendants 
Pork  Lift  (Over  6  tons) 

Material  Eoglnasr 

Teaaatar  Hachanlc 

Teaaster  Mechanic  Helper 

Teaaatsr  Welder 

Teenster  Driving  Two  Horaaa 

Teaajtar  Driving  Three  or  More  Horae* 


BASIC 

HOURLY 

RATES 

FRINGE  BENEFITS  PAYMENTS 

Nkf 

pennon* 

VACATION 

app.  m 

onun 

6.J25 

.10 

.20 

.10 

6.425 

.10 

.20 

.10 

6.525 

.10 

.20 

.10 

6.525 

.10 

.20 

.10 

6.175 

.10 

.20 

.10 

6.30 

.10 

.20 

.10 

6.45 

.10 

.20 

.10 

6.75 

.10 

.20 

.10 

7.00 

..  10 

.20 

.10 

7.25 

.10 

.20 

.10 

7.50 

.10 

.20 

.10 

7.75 

.10 

.20 

.10 

i.00 

.10 

.20 

.10 

7.00 

.10 

.20 

.10 

6.50 

.10 

.20 

.10 

6.50 

.10 

.20 

.10 

6.075 

.10 

.20 

.10 

6.075 

.10 

.20 

.10 

6.20 

.10 

.20 

.10 

6.25 

.10 

.20 

.10 

6.125 

.10 

.20 

.10 

6.275 

.10 

.20 

.10 

6.075 

.10 

.20 

.10 

6.60 

.10 

.20 

.10 

6.42 

.10 

.20 

.10 

7.31 

.10 

.20 

.10 

7.06 

.10 

.20 

.10 

701 

.10 

.20 

.10 

6.075 

.10 

.20 

.10 

6.175 

.10 

.20 

.10 
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•AUEA  2: 
‘Area  i: 


UTAH 

AREA  DEFINITIONS 
for 

Truck  Driven  &  Operating  Engineers 

All  irui  not  Included  within  Area  1  n  d. fined  below. 

All  a r*»«  Included  In  tho  description  defined  below  which 
hoied  upon  township  end  range-lines  ea  referenced  to 
the  Salt  Lake  City  Base  and  Herldlaa: 


Co—enclo*  et  the  Intersection  of  the  luh-Hev«d*  border  end  the  Northerly 
**"•  0f  *0*",hlP  th«°«  easterly  along  the  northerly  Unas  of  Township 
J6S  to  the  Northeast  comer  of  Township  J6S,  Range  17V. 


Tbeoce  Northerly  to  the  N.W.  comer  of  township  J5S,  range  liWi 
Thence  Easterly  to  the  N.I,  comer  of  townanlp  JJS,  range  16  Wj 
Thence  Northerly  to  the  N.W,  comer  of  township  US,  range  1J  W* 
Thence  easterly  to  the  N.E.  comer  of  township  J1S,  range  1J  V; 
Thence  Northerly  to  the  N.W.  comer  of  township  26S,  range  16  W: 
Tbanct  Easterly  to  tho  N.E,  corner  of  tovnahip  265.  rant*  14  if; 
Thence  Northerly  to  the  N.W.  comer  of  township  2JS,  range  1J  V; 
Thence  Easterly  to  the  N.E.  comer  of  township  2SS,  range  1J  Wj 
Thoneo  Northerly  to  the  N.W.  corner  of  township  24S#  range  12  Wj 
Thence  Easterly  to  the  N.E.  comer  of  township  24  $,  Tenge  12  If; 
Thence  Northerly  to  the  N.W,  corner  of  townehlp  19  S,  range  11  V; 
Theoce  Easterly  to  the  N.E,  corner  of  townehlp  19  S,  range  11  W; 
Thence  Northerly  te  the  N.W,  comer  of  townehlp  17  S,  range  10  Wj 
Thence  Easterly  to  the  N.E.  comer  of  township  17  S,  range  10  V; 
Theoce  Northerly  to  the  N.W,  comer  of  townehlp  16  S,  range  9  Wj 
Thence  Easterly  to  the  N.E,  comer  of  tcwnshlp  16  S,  range  9  Wj 
Thence  Northerly  to  the  N.W.  comer  of  townehlp  is  S,  range  8  V; 
Thence  Eestarly  to  the  H.E.  cemer  of  township  IS  S,  range  B  Vi 
Thence  Northerly  to  tho  S.W,  corner  of  township  7  S,  range  7  W; 
Thance  Westerly  to  the  S.W.  corner  of  township  7  S,  range  10  W; 
Thence  Northerly  crossing  the  Salt  Lake  Bees  line  to  the  N.W. 

comer  of  township  6  N,  range  10  W; 

Thence  Easterly  to  the  N.W,  comer  of  township  6  H,  range  8  W; 
Thence  Northerly  to  the  N.W,  corner  of  township  12  N„  range  S  W; 
Theoce  Easterly  to  tho  N.E.  comer  of  townehlp  12  N,  range  8  W; 
Thence  Northerly  along  the  Westerly  line  of  range  7  W  to  the  Utah/ 
Idaho  border 


nance  easterly  along  the  Uteh/Idaho  border  crosalog  the  Sal:  Laka 
Meridian  to  tha  Intersection  of  the  Utah/ldeho/Wyoalng  borders 

Thence  Southerly  along  the  Uteb/Wyoalng  Border 

Thence  Easterly  aloBE  the  Utab/Wyoalng  border  to  tho  Seoterly  lino 
of  range  11  I| 

Thence  Southerly  along  tho  loot  line  of  range  11  E,  crossing  the 
Salt  Lake  Bees  line  to  the  N.E.  comer  of  township  6  S,  range  11  I 

Thence  Easterly  to  the  N.W.  corner  of  townehlp  4  S,  range  IS  I; 

Thence  Northerly  to  the  N.W,  corner  of  township  1  S,  range  IE  E; 

Thence  Easterly  along  the  Silt  Uke  Base  line  to  the  N.E.  comer 
of  townehlp  l  S,  range  24  S; 

t0  eorn'r  of  “>wn.blp  J  S,  range  24  S- 

North,n’ u"  °f  to,'"'hip  j  to  th*’ 
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UTAH 

AREA  DEFimiOfS 
for 

Truck  Driver*  A  Operating  Engln*«ra 
There*  Southerly  along  th*  Utah/Colorado  herd*!;  to  the  Southerly 
line  of  township  6  S; 

Thence  Westerly  to  the  N.E,  comer  of  townehlp  7  S,  r*n|*  23  *1 
Thence  Southerly  to  the  S.E,  comer  of  townehlp  7  S,  range  73  t; 
Thence  Westerly  to  the  S.W.  corner  of  township  7  S,  range  20  E; 
Thence  Southerly  to  the  S.E.  comer  of  township  8  S,  rengl  H  I; 
Thence  Westerly  to  the  S.E.  corner  of  township  8  S,  range  16  t; 
Thence  Southerly  to  th*  S.E.  comer  of  township  11  S,  range  16  E; 
Thence  Uesterly  to  th*  S.E.  comer  of  township  11  S,  rang*  14  I| 
Thtnc*  Southerly  to  the  S.E.  tomrr  of  township  16  S,  rang*  14  I; 
Thcnc*  Westerly  to  the  S.E,  corner  of  township  16  S.  rang*  12  E; 
Thenc*  Southerly  to  th*  S.E.  corner  of  township  20  S,  rang*  12  E; 
Thcnc*  Westerly  to  th*  S.E.  comer  of  townehlp  20  S,  raog*  8  E; 
Thenc*  Southerly  to  th*  S.E.  comer  of  township  21  S,  rang*  8  E; 
Thenc*  Westerly  to  th*  S.E.  comer  of  townehlp  21  S,  range  6  l\ 
Thenc*  Southerly  to  th*  S.E.  comer  of  township  23  S,  rang*  6  E; 
Thane*  Westerly  to  th*  S.E.  comer  of  township  23  S,  range  S  E; 
Thane*  Southerly  to  th*  K.E.  comer  of  townehlp  27  S,  rang*  5  E; 
Thcnc*  Easterly  to  the  N.E.  corner  of  township  27  S,  rang*  7  E; 
Thenc*  Southerly  to  th*  S.E.  comer  of  township  30  S,  rang*  7  Ej 
Thenc*  Westerly  to  th*  S.E.  comer  of  townehlp  30  S,  rang*  4  E| 
Thane*  Southerly  to  th*  S.E.  comer  of  township  31  S,  rang*  4  E| 
Thane*  Westerly  to  th*  S.W.  comer  of  townehlp  11  S,  rang*  4  E| 
Thane*  Southerly  to  the  S.E.  comer  of  township  33  S,  rang*  3  *1 
Thenc*  Westerly  to  th*  S.W.  corner  of  townehlp  35  S,  rang*  3  K; 
Thenc*  Southerly  to  th*  S.E.  eomar  of  township  37  S,  rang*  2  *l 
Thenc*  W*stsrly  to  the  S.W.  comer  of  township  37  S,  rang*  2  E; 
Thenc*  Southerly  to  th*  S.E.  comer  of  township  39  S,  rang*  1  Ej 
Thenc*  W«stsrly  eroding  th*  Salt  Lak*  Meridian  to  th*  S.E.  comer 
of  township  39  S,  range  2  W; 

Thenc*  Southerly  to  th*  S.E.  corner  of  township  41  S,  rang*  2  *| 
Thane*  Westerly  to  th*  S.E.  comer  of  townehlp  41  S,  rang*  4  Wj 
Thenc*  Southerly  elong  th*  Easterly  line  of  rang*  4  W,  to  th*  Utah/ 
Arison*  border; 

Thane*  Westerly  along  th*  Utah/Arlron*  bordsr  to  th*  S.W.  comer 
of  Utah; 

Th*nc*  Northerly  elong  the  Ut*h/N*v«d*  border  to  the  point  of 
beginning; 

Conaanclng  at  th*  intersection  of  th*  Utah/Colorado  border  and  tho 
Southerly  ltn*  of  tcvnahlp  34  S, 

Thane*  Westerly  to  the  S.W.  comer  of  township  34  S,  rang*  21  E; 
Thenc*  Northerly  to  th*  S.W.  enrncr  of  townehlp  29  S,  rang*  21  E| 
Thenc*  Westerly  to  the  S.W.  corner  of  township  29  S,  range  19  *; 
Thenc*  Northerly  to  the  N.W.  comer  of  township  23  S,  rang*  It  E; 
Thsne*  Easterly  to  the  N.W.  comer  of  township  23  S,  range  22  E; 
Thenc*  Northerly  to  the  N.W.  corwr  of  townehlp  21  S,  rer.g*  22  E| 
Thenc*  Easterly  to  the  N.K.  cimer  of  township  21  S,  range  24  E| 
Thenc*  Southerly  to  the  N.E,  comer  of  townehlp  II  S,  rang*  24  E| 
Thcncr  Easterly  i lerr  the  Northerly  line  of  townehlp  31  S,  to  th* 
Utah/Colorado  border; 

Thtncs  Southerly  elong  th*  Ut«h/Colondo  border  to  th*  point  of 
beginning. 


MOTT l  Truck  Driver*,  only  -  If  *ny  part  of  portion  of  sny  Job  or  projoet  fall* 

Within  Are*  2,  then  th*  Ara*  2  rat*  of  p«y  will  apply  for  *11  t«rk  don*  on 
Mid  Job  or,pro)*ct.  Til*  seam,  *11  *etuel  on-*lt*  work,  such  ••  daM* 
bridges ,  reed*,  *te.,  Irrludlng  Ur  row  pits  which  say  b*  located  In  Am*  l. 
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SUMMARY 

This  appendix  contains  the  FORTRAN  listing  of  the  computer  program 
developed  for  simulating  the  Layout  Tunnel  and  listings  of  all  tunneling 
subroutines.  Definitions  of  common  variables  used  in  these  programs  are 
given. 
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COMMON  VARIABLE  DEFINITIONS 


COMvinM  /DLOCPW/  PABAMFTFUS/FLAGS  ™&T  Ch&NGF  WITH  TIME 


DUMMY (?01 
HFAT  J 
1  P  X  C  A 

IF1L0 

JIJM  1  N 

jumdut 

KSTDP(?Sl 

KIJNLD 

loadp 

LSTOP 

lvfhcl 

m  4  CON 
MF  4°C 
MCV 

m  r  l  4  n  r 

MSS  (  1  ) 

MW]N 

•iunot 

Mwj 

“WJM 
MW  JO 
NOAPL 
NHYHY 
NCHP'i 


NOT  ■ISP'Y  4  T  PPFSFNT 

hfat  4nnrn  to  tu*!*iF|_  from  watfp  jftiop  ppo.ifctilF)  rtu 
STAT'IS  'i/APl»aL»  POP  GP.KINO  SUPPORT  1-F, POUND  SUPPORT  FALLEN 
qrul'in  FXCAVATOP.O-GPOUNO  SUPPORT  WOT  HFHJMO 
FLAO  1  •  in  1  F  AT  IMG  o  I  SFnAPGF  APFA  IS  Fllt^o 
l-OI'CH4P;ip  AP.A  P||  LF|).n-OIbl‘«40F,F  APFA  NOT  F1LLFI) 

STATUS  V40I4PL-  r op  iiPTl.1.  AND  ‘-LAST  MOVING  )F  JU-BO  0«1LL 

T0  facf  o-movt'g  in  f*Por,pFSS.  i-*'ovIng  comblfTfo 

STATUS  VAPIAJLF  POP  OP1LL  AND  MLAST  -WMRO  DP  ILL  FPO  FACE 

O-XOVINO  IN  Ppor.DfSS.  1-MOV1NC-  COMPI.FTED 

PF4P3N  FOP  T=A 1N/TPUC*  1  ID  HAVE  STOPPFO 

(SFF  APPFWOl X  TV.OFSCPIPTIOM  nr  PAIL  SYSTFM) 

FI  AO  fop  UNLOADING  IN  niSCHAWFrf  a«fa  1 -unload inf.  stoppfd. 

c  y  *  TwS**  V  AP  !  AaLF  T  pop  ‘  I N  TFGP  A  TFO  CONVrY0P  LDAOFW  |-LOA(>fp  FAPACUY 
FYCPFOPr^O-LOAino  CAPACITY  NOT  FxCfFPFO  VAPtA.RLF  ALSO  IISFO  FOP 
MACHINF  lOADFPS  AMO  SHOVELS  1-LOADING  F  INI  S-F  0 . 0-LOAD  I',  r,  IN 

poor.j’t;*; 

PL  40  TO  Shut  DO  VM  no  HP  1  NO  IIP  long  haul  t«a,ns/tpucks  systfm 

I.SYSTPM  shut  DD  JN.C-SYSTEM  IIP 

STATUS  1/aPIAHIF  r0°  LONG  HAUL  T  w  A  I  NS/ TPUCK  S  0-VPH1FLF  NOT 
AVMLAHLP  FOP  |  OADINS.iIN'-DUAL  to  0-  VFHICLF  AVAILAHLF  FOP  LOADING 

PO  .IVAI.FNFP  (LVPhCL»LTPATIhlT°HCF) 

ST  4  T  IS  VAP I  AJLP  r>i  P  CONVFYDP  (LONG  HAUL) 

1 -m* INTPNAN'P  IN  PpGOpF SS.n-  MAINtFWANFF  fOMPl P T PD 

STATUS  V  4  p  1  A  p|.  p  PDC  CONVFYDP  (LONG  HAUL)  O-CAPaCITY  OF  HFLT  NOT 

Fjf  r.-riP'i  ,  1  -F.4PAC  I  TY  'IF  MFL  T  F*FFF”FH 

STAT  ’S  VAPIAPLl-  PD P  INTFGhATFD  C0NVFY0«  LOAUfW  (OP  MACHINE 
L04DP,.s  and  SHFVPI.S  l-HAINTfNA'CF  1"  PROGRESS, 0-“A 1 NTFNANCF 
rOJPL  F  TFT, 

flag  TO  I  NO  I  CAT'  HhOWT  haul  MAH'PIALS  HANDLING  STOPPFO 
ST'’PP-*".,|  oiv  r.JF.ATP-  ThA"  1-STOPPFO 
1  =  1  «S  STATUh  VAPJA-iLE  FUN  GROUND  SUPPORT  TYPF  I 
1  =  1  -«,•■)  SUPPORT.  I  M-POCK  HOLTS.  iP-J-SHOTCPETF.MF.-smiL  SETS 

T-IrriANOF  fdmdi ltfo. i-maintfnamcf  in  ppoopfss 

status  VAPIA--LP  rnJ  M  A  c  H  1 1 .  P  LOAnPPS  i-muC'FPS  COmplF  f  F  D  M0VF 
TO  FAFF  ,C-M  iC'iFPS  MOVE  TO  FACP  IN  ppOF.pFSS 

STAT  JS  VA-1AHLF  fd-  “AFHIWF  LDAOFUN  l-M(lf«FPS  FO’N’LFTFD 

ivpvr  ftt<  rtrF,o-“"F«.FPS  «uvr  fpdm  facf  in  ppuf.pfss 
status  vAPitPLF  pop  hhojfftilf  and  • a t i p  jft  O-dpfpating. 

1  -c  f.PFATEP  T-A'1  I  -STOPPED 

FOoTVALFNFF (MP| .MwJ)  „  .. 

STATUS  VAPIA-LP  POP  *'  A  T  F  P  (FT  (OP  PPO.IFCTILFIO-MAINTENANCF  in 
oBor.BFSS*  I  -“A  INTFWANCE  CO“P(.FTFD  ..... 

STATUS  VAWIAHLF  POP  PF POS 1  T  1 O** INF.  WATFP  JETOW  PPD  IFFTILF) 
n-SFDOSITlONTNG  TN  PPOOPPSS.I-PFPOSITIONING  CO“PLFTFD  nunroct.e 
STATUS  i/apTA-LP  pop  PP0IPCT1LF  O-BaPpfl  UPPLACF-FNT  IN  OHOGPESS. 
J.BAPPPI.  PFPLAFPMrMT  CDHOLPTfn 

FLAG  TO  TN01FATF  FFF  rtfp  PUN  AWAY  TF.LFPANCF  F  F  C  FP  Ti  F  o 
l-T'"LrP4NCF  fafcpdf  D.  0-TOLPPANFF  NDT  F  AFFFF'L  0 

status  vapiahlf  pop  up  ill  and  -last  fmapgf  sftting 


VI-5 


nihwill 

NDRILP 

NSPLlC 

NSWTCH 


ntpda 

NVEHCL 

NUMSWT 

OL 


OWATH 

S« 

SW I TCH  I  ?n ) 

teci^st 
TOP (2S) 
TSTAT (?S.<*) 


UT IMF I ?S  T 
KGS 


I  _  i  t.  ^  ^  HI"'.  r-i",.Lh  IM|to-f>  ARGr 

ST«T  IS  VARIA-iL1"  rDP  ORILL  AND  mIAST 


st  1 1  ing  in  •'Jn '.-«i  ss 

0-r>P  ILL  I'll!  IN  PHOGPFSS. 


STATUS  VARIABLE  rr>'->  DRILL  Ann  BLAST  0— IURN  CUT  DRILLING  IN  PROr.PFSS 

.l.nuRN  rut  PRILLING  C0MaLETF0  _ 

STATUS  V  A  P  I  A u  L f*  FOP  CDNVFT0B  (LONG  HAUL)  0-SPLICING  BELT  COMPLFTFO 
. i l-je- O' IAI.  TO  i-^PLlCI  W  ufLT  IN  PODGRFSS 
CTAT'IS  VAN  I ARLC  FOP  I  RAINS/ TRUCKS 

0-tu|lCH  «0VF  OP  AND  COMPLETED. I-SW1TCM  BEING  AODFD.?-SWl TCH 


BEING  «GVFD 

FIV  1 1  VALENCE  INS  .TCH.nSWCH) 

NUMBER  OF  TWAINS  IN  DISCHARGE  ALFA 
kjllMOrp  OF  TP«  I'S/TPIICKS  aCTIVF 

F  Oil  I  valence  (M/FHCL.NTHAIN.NTPUCK) 
igUMnrt;  OF  SWITCHrS  IN  TPAIN/TRUCK  SYSTEM 

AVFPAI.F  LnAOIUC.  VOLUME  pate  FOP  machine  loaofps  and  shovels 
fr  pr  t  T/hOJ0 

volume  of  WATFu  MIOFD  TO  tunnel  r»OM  WATER  JET  FFET»»3 
pprnFP  PUN  AWAY  IOLFPANCF*  FT 

LOCATION  OF  SWITCHES  feet  EPOM  OISCHARGE  AREA 
CUMULATIVE  COST  fop  TPAIN/TPIICK  I  s 

Cumulative  time  |N  OPERATION  FOP  TWAIN/TRUCK  I  HOURS 
CURRENT  STATUS  OF  TPAI'I/TPUCK  I 
t'O'.HVALFNCF  (TSTAI.IISTAT) 

(SFF  AP°F'in|«  (  V  •  OFSCP  I  P  T  |  ON  OF  PAIL  SYSTFU) 

T]MF  REMAINING  IN  UNLOADING  OF  TPAIN/TPUCK  I  i  HP 

OISTANCF  from  discharge  area  to  ground  support  position 


ffft 


COMMON  /mFwCOM/  UPDATFD  VALUES  OF  THOSE  VARIABLES  IN  /OLDCOM/ 


FDijmmy  I  ?o ) 

FHFATJ 
lIfkca 
l  i  f  i  l  n 

LJUMIN 
LJU“OT 
LK  G  TOP  (  pc; ) 

LKIINLO 

LLOAOP 

LL  STOP 
LLVHCL 

LMACON 

L«CAPC 

l«cv 

LMFLAC 

LMr,S  (  I  I 

LMKIN 

LMIKOT 

L“W  J 

LMW  )M 
L«W  JP 
LNBARL 
LNHYHY 

lnch»g 

LNOPIl 

LNOPLB 

LNSPLC 

LNSwCh 

lntsoa 

LNVHCl 

LNMSwT 


upoatfo  values  of  nu“Mr(?0» 
UPOATFO  VALUE  of  hfatj 
upoatfo  value  OF  |F»CA 
UPOATE  o  VALUE  OF  IF ILLO 
UPOATfO  VALUE  OF  JUMIN 
UPDATED  VALUE  nr  lU-tOUT 
UPOATFO  VALUF  OF  KS TUP  ( ?S) 

UPDATED  VALUE  OF  CUE'LO 
UPDATED  VALUE  OF  LOADP 
UPOATFO  value  of  LST.jp 
UPRATED  VALU-*  OF  LVFhCL 

F"  IIVALFNCF  (LLVHCL «LL TRAN. LLTUCK ) 
UPOATFO  VALUF  OF  MACON 
UPOATFO  VALUE  OF  MCAPC 
UPniTFO  VALUE  FDO  “CV 
UPDATED  value  OF  mfl  AOC 
UPDATED  VALUE  FOR  mo,s  I  II 

ijPpA  |Fn  VALUE  OF  MWIN 

IJPOATFD  VALUE  hF  MUWOT 


updated  VALUE  of  m»ij 
FOU I  VALENCE (LMP| .LMRJI 


updated  value 

iippated  value 
UPOATFO  VALUF 
UPDATFD  VAL'.F 
UPDATFP  VALUF 
UPPATFD  VALUF 

UPDATED  VALUE 

UPDATED  VALUE 
updated  VALUE 
UPDATED  VALUF 
rO'HVALFNCF 
UPDATED  VALUF 
FC  IIVALFNCF 
UPo  ATFP  VALUE 


OF  MW.IM 
OF  MVJP 

OF  NR  AWL 
OF  LNBYMY 
DF  NPwRG 
OF  MnoiLL 
OF  NDP ILB 
DF  NSPLIC 
OF  NSwCH 
r.F  NTPDA 

(Lntpda.ntd») 

OF  NVEHCL 
(L'ivhcl  .lntran 

DF  NUMSWT 


.LNTPUK) 
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fol 

F OWATP 

fpm 

fpwtchipo) 
FTFC ( ?S) 
FT0P(?5l 
FTST  AT  ( ?S • A ) 

FIITTME  <?R> 
FXGS 


llPnai-o  v - L ' i F' 
'.IPOATFO  VALUE 
UPOATFO  V5LHF 
UPOATFO  VALUE 
IIBDATEO  VALUE 
UPOATFO  VALUF 
UPDATED  VALUF 
FOUTVALEnCF 
UPDATED  VAUUF 
UPDATED  VALUr 


or  nl 

nr  Q  W  A  T  P 
OF  SM 

(IF  SWITCHI20) 

OF  TFCI?S! 

nr  top(?S) 

OF  TPTATIOS.A) 
(FYSTAT.LTPTAT) 
OF  WTIMEIiS) 

OF  XGS 


COMMON  /ALL  /  GFNFPAL  DATA 


XT 

STO 

TA 

POO 

CP 

T  AMR 
FLOW 
1FLAG 

AT 

0 

OTOPNT 

OT 

ov 

OK 

C 

1CMNG 

»C«NG 
TCMNG 
T  MOVE 


jmfth 


OPPCT 

PS 

BFPOST 

P« 

T 

T«AX 

TO 

T°S  TNT 
TPMFT 
< 

xOJPCM 

<MAX 

XO 


MAXIMUM  distance  FROM  POSTAL  ASPOC I ATFO  WITH  THE  FOLLOWING  SIX 

conottjonp  .ffft 

IINCOnFINFO  CDURRFSPtVF  sTHFnGTm  OF  ROC*.  1.E3  LH/IN«»2 

POC<  A'ISASI wf  IN'DFx 

SOCK  DUALITY  Of  S  T  GNA  T  I  Off 

IN  c  1  TU  OENPTTY  OF  »OC*P.  LD/ET»»D 

AmP T rNT  TfMPFSoTiiPE*  DEGREES  FAHSFNFHIT 

WATFP  INFLOW  PaTf,  GPM 

FLAG  (NOT  UPFO  AT  S3E5ENTI 

EOJ I  VALENCE  (G(I).XT>.(G(«>.IFLAG> 

CR1PP  PFCTIONAL  Amfa  nF  TUNNEL  •  FT«0 

OT AMFfFp  or  Til  (NFL.  ft 

TIME  hf^wefN  Su | NT  OUT  OF  WORKING  COMMON  HOURS 


TI«F  JNCPEmfnT,  HP 

VOLUME  of  bock  RRO*EN  in  OT.  FT»»D 

advance  of  facf  in  or.  ft 

£ n r b 0 Y  OFoUISFn  °F°  MOCK  VOLU“N  RBOKEN.  IN-LR/I.E3  1N»»3 

FLAG  TO  INPICATE  THAT  GEOLOGY  HAP  CHANGED  0-GEOLOGY  NOT  CHANGFO 

,T-r.rnLOGY  c.ha  :r,Fn 

HFAOTNG  POSITION  OE  LAST  GEOLOGY  PABaMfTE»  CHANGE  FT 
T  |  m  r  FSOV  E r  4  R  T  OE  BUN  OF  LAST  GFOLOGY  PARAMETER  CHANGE  HOURS 
FLAG  TO  TNDIr.ATF  MFf.OO  OF  LONG  HAUL  MATERIALS  HANDLING 
WAILP.P-TOUCHP.O-PFLTP 
FC  llVALENCF  (  I'FOVF,  JMOVE) 

FLAG  TO  INPICAIF  METHOD  FOR  BOCK  FRAGMENTATION 
j. hoping  machI  IE . P-°LAST .  3-WATFH  JFT  .(.-PROJECT 1LE 
fOUl  VALFNCF  (.f'FTH.IMf  TH) 

FRACTION  of  TOYAL  COST  FOP  OVEPhEAD 


POWER  PATE.  f/ww-hR 
fO'IIVALENCF  (PR. Rfl 

T  I mf  INTFRVALP  gf  I v'FFN  TNTFPIM  REPORTS  ( HOURS) 

ROfF  5  well  FACTOR 
TIME,  HP 

MAXIMUM  TIME  FOR  CURRENT  SIMULATION  RUM.  HR 

INITIAL  VALUE  OE  T  HOURS 

POINT  OUTPUT  4'<r N  TiTP»TNT.  HR 

TOTAL  SHET  TTy.  PfS  DAY  HOURS 

POSITION  OF  rj'f  FROM  DISCHARGE  AREA. FT 

DISTANCE  FROM  TII"NF|.  POhTAL  TO  DISCHARGE  A.'F.A  ffet 

maximum  DIPT ANfe  FOR  CURPt'lT  SIMULATION  SUN.  r  1 

INITIAL  VALUF  OE  X  FEET 


COMMON  /PORING/  ROPING  machine  ACTIVITIES 

ROMENII)  NIIMBFP  OF  MF'I  IN  L»HUR  C  A  IF  GOBY  T  11  =  1.10)  FOB  ROBING  MACHINE 

SYPTFm 

ROCST(I)  hOU°LY  COST  OF  MAN  (N  LABOR  CATFGOBY  I  FOR  ROBING  MACHINE  SYSTEM 

CL(1>  L IFF  OF  CUT T FBS  FFET  OF  CUTTER  TRAVEL 

CPC  COPT  PFR  CUTTF1'.  S 

OTA  T  T  mf  TO  ASSEMBLE  RORINO  MACHINE.  HR 

dtc  time  -iEt.een  coring  machine  maintenance  pfriods.  hr 
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r>Tcn 

DTD 

OTM 

EBOREO 

FTRANS 

KK 

LNCHNG 

lncutr 


masSEm 

MBM 

MAQRE 


mcd 

MOISAS 

NCUTU) 

POM 

R (100) 
RC 
RPM 
TR 

WEARU) 

XCPC 


Time  TO  CHANGE  PORE  OIAMFTER.  HP 
TIME  TO  DISASSEMBLE  PORING  MACHINE.  HR 
DURATION  OE  POPING  MACHINE  MAINTENANCE.  HR 
TORT  OE  PORING  MACHINE  IlNIT/EOOT  OE  EXCAVATION 
COPT  OE  TRANSMISSION  LINES/EOOT  OE  EXCAVATION 
NUMPER  OE  CUTTERS 

«.*.  co.ru™. 

I-CUTTERS  BEING  CHANGED 

ELAG  TO  ASSEMBLE  HOPING  MACHINE 

rX.wVmMC  sx.ius  or  rowing  ..CHI*  O.UR.UNrOO.1,  «.on.» 

IsE^ARPENDIX  ,V. DESCRIPTION  OE  CONTROL  PROGRAM  EOR  LAYOUT  TUNNEL) 
f  LflT,  FOP  CHflNGI  Mf»  RORING  0  I  AMFT 

n  AG  FOP  OIGAS^EMRLY  OF  ROPING  MACHINE  , 

NIHPER  Oe  IhE  CUTTER  TO  PE  CHANGEO  ON  THE  1  TH  CHANGE  FOR  THIS 

ROTATIONAL  Hp'nE^BORING  MACHINE.  HP 
PAOIAL  LOCATIONS  CF  CUTTERS.  IN 
CUTTER  REPLACEMENT  CRTTERION.  PERCENT  WEAR 
ROTATIONAL  S°Efn  OE  BORING  HE&0.  PPM 
TIME  TO  RERLACE  ONE  CUTTER.  HR 
UFAP  OE  CUTTER  I  (1=1.100) 

CUTTER  REARING  COST.  PERCENT  CUTTER  COST 


COMMON  /PLAST  /  DRILL  AND  BLAST  ACTIVITIES 


ADR 

ADM 

CHIT 

CRURN 

CCAP 

CEX 

C“ 

CPL 

CSTFEL 

LRIT 

lhurn 

LO 

LOB 

LSTEEL 

MEN 

ND 

NOB 

NH 

NHR 

PE 

POP 

POD 

SE 

TChG 

TIN 

TOUT 

TYPEPE 

W»L 


AREA  OE  BURN  CUT  RELIEF  HOLE. 
AREA  OE  DRIFTER  HOLE.  IN**2 
BIT  COST.  * 

BURN  PIT.  t 
FIRING  CAPS 

fxrlosive 


IN«»2 


)R  I ETER 
:ost  OE 
COST  OF 
COST  OE 


S/CAP 

S/lb. 

S/mOLE 


OE  TUNNEL  DUG 
OF  TUNNEL  DUG 


miscellaneous  cost  */ 

COST  OF  PRIMER  S/LBS 
COST  OF  STEEL.  * 

AVERAGE  life  OE  PRIIL  BIT.  FT 
AVERAGE  LIFE  OF  RU=N  HIT.  FT 
AVERAGE  depth  of  ORIETER  holes,  ft 
AVFPAGE  OEPTh  OF  RUPN  CUT  HOLES.  FT 
AVERAGE  life  OF  STEEL.  FT  OE  TUNNEL  DUG 
NUmpepdE  MEN  OR  AUTOMATEO  UNITS  SETTING  CHARGE 

MIIMPFR  OF  ORIETE3  C°ILLS 
NIImp  =  R  OF  BURN  C'.ll  ORILLS 
HjijuurR  de  03IETE°  HOLES 
M  ;yPER  OE  BURN  CUT  HOLES 
POWDER  FACTOR.  Ln/TO**0 
POWER  OUTPUT  OF  PIJON  CUT  DRILL*  HP 
POWFR  OUTPUT  OF  DRIFTER  DRILL 
APPARENT  SPECIFIC  ENERGY  IN-LBS/IN«»3 
TIME  TO  SET  ONE  CHARGE*  HR 
TIME  TO  MOVE  IN  JU“B0  AND  ALIGN.  HP 

IN!M C A TES^>ET°I-OSIVEMT0 'bE^USED  OPT IONl -3=A«M0N1UM  NITRATE 

option?-o=otnamite 

amount  of  PRIMER  per  hole.  LBS/HOLE 


COMMON/NJET/  WATER  JET  ANO  PROJECTILE  ACTIVITIES 


ALT 

CPHRL 

CSTPRJ 


RRFL  operating  LIFETIME  HOURS 

5T  per  BARREL  EOR  PROJECTILE  GUN 
OJECTILE  COST  S/PROJECTILE 


I 
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DJMW JM 

DN07 1 
DTCJET 

dtmjet 

DTP  JET 

FNFRGj 
F  r  4  GN 
FT4J 
ET  A  I MP 
ETAI3T 

mddfj 
NOUNS 
N  JETS 
PNG  7 1 
3PM 
PRJPM 
PULSED 
TRRRL 
VFLPW  J 
VOLPP  j 
W  PR  J  . 
XRJFT 


JOH  MATERIAL  COST  OF  M4  I  N  T‘  >!A*ICt 
(OP  PROJECTILE  I  S/MA [NTEMANCE 
JFT  NO 7 7L E  DIAMETER  INCHFS 

TTmf  HFTwFFN  ,«AINTrUANCF  PE3 1 OOS 
HO  IPS 

LENGTH  OF  MAINTENANCE  PE3  TOO  F0« 


PE  3  I  00  FOP  WATFP  JFT 
PF3 1 00 

FOR  WATER  JET (OR  PROJFCTILEJ 
W4TFR  JET (OP  PROJECTILE  J 


HDJPS 

T|MT  1)1  (34  T  I  ON  OF  HFPOSI  T  I0NIN5  D°E»ATION  FOP  WATFP  JET 
(OP  PROJECT ILE I  HOURS 

JFT  ENERGY  PEO'lPFO  PFP  VOLUME  OF  ROCK  SPOKEN 
PROJECTILE  GIN  efficiency 
FFEICPNCY  OF  -4TF3  JFT  DEVICE 
EFFICIENCY  Os  TRANSMITTING  Jr  T  CPFRGY 

FEE  I C I ENCY  OF  T 3 ANSM ITT  PIG  PPOJECTILF  SNEPGY  TO  POCK 
MODE  OF  OPERATION  O-COMT  INIIOtlS  JET.T-INTERMITTANT  JET 


►jumper  OF  PROJECTILE  GUNS 

nu«pfR  n e  »ates  jets  operating 

WATER  JFT  N077I.E  PRFSSURE  3SI 

PULSE  RATE  FOP  WATFP  JFT  PULSfS/MIN 

PROJECT  ILE  GIN  FT  TNG  RATE  PRO  jr  C  T  i!.E/M  IN 

PLjLSE  OiPATIOM  FO./  WATER  JET  SECONDS 

TIME  TO  PfPIACE  3APRKL  FOP  PROJECIILE  GUN  HOURS 

PRO JrCT 1 1. E  SPEsn  EFET/sec 

PPOIECTILE  VOL-'UF  INCHES**.! 

P°0  lrC T  ILE  WEIGHT  l«S. 

ADVANCE  of  TiJN-FL  RFFdwf  REPOSTI  ioning  OF  water  JET  I  dr  projfctilej 


IS  °r0l) I °E0  fee T 


COMMON  /wheels/  TPAIN/TPIIEM  and  short  haul  MATFPIALS  HANOI  INC.  ACTIVITIES 


At 

4F 

AMAX 
AM  a  XL 
am  inl 
HSL 

CAPCAP 

CP 

OF 

DF 

(HAS 
OTma 
DTl  I 

FCCNEO 

ECONSS 

EL 

ruoco 

F'HICKC 

t  Pu:.  ‘.NT 

FSmITch 

f TRACKM 

FUNLOAO 

FC 

FR 

FT 

HP  A 

HPFA 

HPFV 

HPFA 

HPFV 

HPV 

IIHORF 


ISw (2S) 


PF AW  ACCELErAI ion.  EMPTY.  MPH/M 
°r aw  acceleration,  full,  mph/h 

MAXIMUM  ACCELEPAT ION.  MPH/H 
m  A  X  I  Ml  JM  LOANING  ARt  A.  ET 
MINIMUM  loaning  URSA  REO'JI RED*  ET 
OISTANCE  HFTwFfj  SWITCHES,  ET 
CAPACITY  OF  cap  OP  TRUCK.  YO**T 

COST  OF  FUEL  OR  30.iER  TO  ORIVF  TRAIN/TRUCK  J/HOUR 

A Vrp A Gr  DECELERATION  RATE,  empty,  uph/h 

AVERAGE  OECFLEpATION  PATF.  FULL.  MPh/h 

TINS  TO  ASSFMJiF  CALIFORNIA  SWITCH.  HP 

DAYS  H  F  T  J  S  L  N  M  A  I  NTrNAUCF  PERIODS.  DAYS 

TIMS  TO  IINLOAO  ONE  TRAIN.  HP 

COST  OF  CONVSYOP  FOUI PMp NT /FOOT  OF  F»CAVATTDN 

COST  C,s  SUPPORTING  STRUCTIIpe  EO3  CONV-LOAD/EOOT  OF  EXCAVATION 
EESICIS.JCY  OS  LOCOMOTIVE  OR  PDwfP  TRAIN 
COST  OF  LOCOMOTIVE  ii’IIT  t/HOUR  i J 5 F 

COST  OF  MUCK  C'3  »/HDMR  of  USE 

cost  or  maintenance  shop  for  pails  s/eoot  of  fxcavation 

cost  of  switch  ‘/foot  of  excavation 

COST  OF  TRACK  MATERIALS  t/EOOT  OF  EXCAVATION 

COST  OF  UNLOAD* NO  FOIlIPMfNT  FOP  RAILS  S/FOOT  OF  EXCAVATION 

fuel  CONSUMPTION  rate.  GAL/HP-hP 

rolling  resist ANSF  factor 

TPASTIO’I  COESFICIFNT 

PF AR  HP  AVAILAPLS  FOR  ACCELERATION.  HP 
PQWSP  CONSUMPTION  3  A  TT  .  PEAK  ACCEL.  FMPTY.  HP 
POWsp  CONSUMPTION  oaTE.  PEAK  VEL.  EMPTY.  HP 
pOrsj  CONSUMPTION  PATF.  PEAK  ACCEL.  E I  ILL  *  HP 
PO/sp  CONSUMPTION  PATE.  PEAK  VEl  .  FULL.  HP 
RATED  HP  EDO  CONTINUOUS  OPERATION.  MP 
FLAG  TO  INDICATE  STATUS  OF  UQRING  MACHINE 
FOUTVALESCF  ( 1 1 «0°E «U|JDPE  I 

( SEE  APPEND! X  IV. DESCRIPTION  OF  CONTROL  PROGRAM  for  layout  TUNNEL > 
INOICATFS  which  switch  TRAIN  IIS  IN 
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LOCO 

tour 

MAXLO 

MC 

ML 

MLTYP 

NCARS 

NPOINT 

NTO 

NT  IN  I T 

NTH 

NTMAX 

to 

NTMILP 

ntmlpp 

ntrack 

NUMLO 

OUC 

RAMEN ( I ) 
PACST (I) 

SI 

STATUS  <3<S» 
tccv 

TmCV 

tmaint 

TCURVX  <?") 

TCUPVY (?0) 

TWE 

vr> 

vs 

VE 

VF 

\'MAX 

WC 

WMY(2(.) 

WMR 

wijc 

WL 

xos 


nu“pfr  nf 

INDICATES 
•gilMarp  OF 
NUMBER  OF 


TRAIN  OPT  1 0*1.  .  .  1  011  If  L  .  /-ELECTRIC 
TRAIN  PBIOWITT  I *1  LOAD  OUEUE 
MAXIMUM  NUWRrR  OF  TWAINS  IN  LOADING  ARFA 
NUMBER  OF  AXLES  3FS  MUCK  CAP 

AXLES  pfB  LOCOMOTIVE 

UNI  T  1 7F0  (?)  OP  CONTINUOOSU)  CONVEYOR  SYSTEM 
CAPS  PFW  TRAIN 

POINTS  IN  TCUPVX-TCUPVY  TABLE 
MAXIMUM  NUMBrR  of  TRAINS  IN  DISCHARGE  AREA 
INITIAL  NUMBER  OF  TRAINS  IN  SYSTEM 
MAXIMUM  number  of  TOAINS  IN  MAINTENANCE  AREA 
MAXIMUM  number  OF  trains  AVAILABLE 
0 1  ST  ANTE  CRITERION  FUR  NTMILP  AND  NT«LPP 
NUMBER  OF  TRAINS  PFW  MILE  FOR  X.LE.XP 
NUMBER  OF  TRAINS  PE®  MILE  FOR  X.GT.XP 
TRACY  OPTION. ..USINGLE,  ?=OOUBLE 
MUMorp  OF  TpAIf  /TRUCK  AT  FACE 

CAPACITY  OF  IRAIN.  ET  =  »3 

OF  MEN  IN  LABOR  CATEGORY  I  (1  =  1 • 1 0 »  FOR  RAIL  SYSTFM 
COST  OF  “AN  IN  LABOR  CATEGORY  I  FOR  RAIL  SYSTFM 
OF  CALIFORNIA  SWITCH.  FT 

MAINTFNANCESp£PIO|)  FOR  SHORT  HAUL  MATERIALS  HANDLING  HOURS 
T i Mr  BETWEEN  MAINTENANCE  PERIODS  FDR  SHORT  HAUL  MATERIALS 


VOLUME 

NUMBER 

MO'.IRLV 

LENGTH 


DURATION  of  MAINTENANCE  PERIOD  for  trainS/trucks  hours 

VELOCITY  ENTRY  in  VFLOriT  T-VS- TRACTIVE  FORCE  TABLE 

TDACTIVF  FORCE  ENTRY  IN  VELOC I T Y * VS-TB ACT  I VE  FORCE  TAHLE 

•WEIGHT  of  E“pTy  truck*  tons 

VFLOCITY  in  discharge  AREA.  MPM 

VELOCITY  IN  switch,  MPH 

PEAK  VELOCITY*  EMPTY,  bPm 

PEAK  VELOCITY,  FULL*  MPm 

MAXIMUM  VELOCITY  ALLOWEO  FOR  TRAINS,  MPM 

WEIGHT  OF  empty  Mi|fw  CARS,  IONS 

REASON  FOR  STOPPING  (HOLLER  I  TH) 

maximum  mucking  RATE  TONS/hOUR 

WEIGHT  CAPACITY  OF  TWAIN,  TONS 

WEIGHT  OF  LOCOMOTIVE.  TONS 

SPEFO  OF  MOVING  CALIFORNIA  SWtICH*  ET/hR 


COMMON /CONVEY/  CONVEYOR (SHORT  And  LONG  HAUL*  AND  MACHINE  LOADER  ACTIVITIES  . 


AR 

ACM 

CVMEN(I) 
CVCST ( I > 

dmaint 

OTRS 

DTCB 

DTC“ 

DTMI 

OTMO 

OWM 

EE 

EL 

ELM 

HP 

LNSUPG 


MUCK  flow  CR05R  SErT  ION,  FT  =  =  2 

MAXIMUM  CROSS  SECTION  OF  CONVFTOP  STRUCTURE*  ET»»? 

^ji IMBfb  0f  mfN  IN  LABOR  CATEGORY  I  (1  =  1,10)  FOR  CONVEYOR  LOADER 
HOURLY  COST  OF  man  IN  LABOR  CATEGORY  I  (1  =  1. 10)  FDR  CONVEYOR  LOADER 
JOB  MATERIAL  COST  for  LONG  haul  CONVEYOR  MAINTENANCE 
S/MAINTFNANCE  PERIOD 

TIME  TO  DO  A  BELT  SPLICEILONG  HAUL)  HOURS 

T1MF  bftwffn  maintenance  periods  e or  CONVEYOR (LON-  maul)  hours 
I  f-NGTH  OF  MAINTENANCE  PERIODS  FOR  CONVEYOR  (LONG  HUILI  HOURS 
TIMF  TO  MOVE  MUCKERS  TO  THE  EACF  (FOP  MACHINE  LOADERS  AND 

Y*i mt  td'movF  mi tCKEpS  AWAY  FROM  THE  EACE(FOp  MACHINE  LOADERS 
Hun  «; ho VrL S  HOU^S 

TONNAGE  hauled  Hrro°E  MA INI ENENCF  SCHEDULED  FOR  CONVEYOR ILONG 
HAUL)  (ALTERNATIVE  TO  “ainFENAnCF  CRITFRIA  TO  OTCR)  TONS 
MOTOR  ANO  REOUCTTON  EOU!  PMF«iT  EX  r  J  C  1  FUCY 

IFNGTH  or  rrrOFH  FC&  CONVEYOR  SYSTEM  (LONG  HAUL)  EFET 
MAXIMUM  LENGTH  or  FFFOEO  BEFORE  BELT  SPLICE  IS  NEEOEOtLONG  HAUL 
CONVFYOR)  1 ISF 0  IF  NGEO (GEOMFTRY  INDEX)  IS  ?  FEET 

^T»GLf^/LR^t’TSY^E-ULOn2NHEaJl8  I-SURGE  bin  CAPACITY  fXCEEOEO. 

0-S  JPGE  bin  CAPACITY  NOT  EXCEfOFO 
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-  r  i  A 


MF  <  ON 
NGfO 


NGEO 

NSURGE 


f >c 


UUMW 

oc 

OF 

fJP 

S«!N 

STIMf 

vm 

WBI 

WP 

XE 


*Lf 


COMMON  /GRNO 

frbori 

FSCPLA 

enow 

GMEN • T ) 

GCST  <  I ) 

GSETOo 

o'LOS 

1ST 

US 

MAXPSS 

ossf (GO.oj 

RATERS 

PATFSC 

rate  .s 

ucs 

uese 


COMMON  /FNVC 
AMCUOl 

CKA 

CPA 

EVENTP 

fko 

F  FT 
HEAT 

Maxme*) 


FLAG  rOJ  PEU/RAIL  MTF.NSION  1-FXTFUSION  SMUT  DOWN 
Gf 0MrTRY  MODEL  INDEX  FOP  CONVEYOR  SYSTEM 

I-CONTINUOJS  EXTENSION  ASSUMES  FFFOFO  EXTENDS  full  length  OF 
CONVEYOR 

?-CONTINiIOUS  EXTENSION  ASSUMES  EFfOEH  CONVEYOR  EXTENSION  TS  SMALL  • 
(E>_*0)  AND  EMPTIES  INTu  SHAFT  OIBECTLY 

3-CYCLIC  F«TFUSION  USING  MINIMUM  ANO  MAXIMUM  ALLOWABLE 
DISTANCE  E»OM  FAFF  FOR  PELT 

GEDMfTOY  MODEL  INDEX  FOR  TPAIN/TPUCK  SYSTEM 

1 -CONT TNUOUS  EXTENSION. ?-CYCLTC  EXTENSION 

STATUS  VARIABLE  FOB  LONG  HAUL  CONVEYOR  SYSTEM 

I -SURGE  PIN  EXISTS  FOR  EXCESS  MUCK.O-NO  SURGE  MIN  FOR  EXCESS 

MUCK  (LONG  HAUL  CONVEYOR  I 

FOOTVALENCE(RR.P*|  SFF  CCiMMGN/ALL/ 

IP.II.C  mulling  NAIF  LAmahILITY  OE  MACHINF  LOAOER  E£ET»»3/HOuR 
SIIRGF  qjN  CA’ACITY  EEET«*T 

VOLUME  OF  MUCK  TO  RE  TAKEN  Oil  OE  OR  PUT  IN  SURGE  RIN  FEET»»3 

PE  A*  VOLUME  RATE  OF  CONVEYOR  •  fT»»3/HR 

DISTANCE  METWEFN  EACl  ANO  CONVFVOP  STRUCTURE  *  FT 

T I MF  TO  SWITCH  UNITS  WHFN  USING  MACHINE  LOADERS  ANOSHOVELS 
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II.  INPUT  FOR  LAYOUT  TUNNEL 
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PARAMETER  VALUES 


BEFORE  INITIALIZATION  BY  THE  SUBROUTINES 


I 

1 

I 

I 

I 

I 

1 


I 

1 

I 

I 


K 


B. 


nr.FMPOL" 

-  — - 

- 

n 

"S  0.  I?'*!  1F*Q?»~~ 

— 

— rrr - 

'  s  U  .  I F  ♦  ft  ft  • 

* 

tHkt 

~r~ o.i7ft«?F.ftsr  " 

- — - — 

T 

~'TM»X 

m  0«0* 

”5 — 

rifooNT' 

"T« 

SK 

~i — ft7T7f»ftl. 

**"  P0 

**¥*■#. ?r-#U 

nPPCT 

~~£~ 0."1F»P0« 

— 

oppopt  *  « .  1  f • ft l * 

Ml  Ilf  M 

- CP ipr"" 

— — - - — - - — 

VI-15 


Cl 


0.1F.07.  n.4F*04.  0 . 1 E  * 


RT?«>7Jicini .  o.stsf.oi,  n.PspSF.bi «  o.llSF«n?«  n.i77SF.n?.  n.?ni;>SF 

o.pc;7cr.n?«  n.posr.n?.  n .  n  ?sf  ,n  ? ,  n.i4F.fy,  n.747SF.n:>. _ n.-QSF.n?.  n  ,u??^»n?. 

5'.'i77ti'F — in^nSF'  •  6?i  n,i  V?sf«o?,  n.ssF  •  f>  ^ ,  irrs«7SF»n?,  o.maVSf.o?.  n.Mows 

o.F.«i«7SF*n?.  n.7pii?SF*o>. _n.7?437SF*o?.  n.Ti<sx7SF«n?«  o.74qi7SF«jl?.  n^n*  ".Q» 

«  *  Aft  Art  Art.  Art-  Art-  Art.  ft  -  0 ■  ft  - O  a  ft  -  ft  a  0  ■ Ot  0  a  0 •  0  a  ”  •  0*0a  0 


P.PF.ni), 

n. AF.ni , 

o.  sF.no, 


xcpc  -  n.iTFfpi 

FRQPFQ  ^  O.V.F.F.O? 

FTP4NS  =  0.14F.01. 


_ «_  n.lF.ni, _  _ _  .  _ _ _ _ _ 

RQMFN  «  n.IF.ni,  0.4F«0l  l  O.JF *01 , _ O.IF.OI, 

ROCST  =  0 • 444F .01,  0.S3PF.01.  O.WO?F»01.  0.711F«01*  0 .» 


«  0  »  ft  •  ft  a  0  * 


A“A*  “  '0 .7  ?F  •  0 1 « 

ama~7l  Y~  .Of. 

AMT  ML  *  D.77*F,41f« 

«SL  *  0.005*’.  04.' 

c  apc  ao  ~7~o.  7*  .of. 

C&  *  971  **•  p » 

_  - -  9;T>«-,A5, 

~  OF  V  ' 0.77*«67. 

— rym - «  o.iiF»ar.~ 

—  0  f  M  A  7  9 . 4 1  aF .  9  0 .~ 

DTlI  *  0. 17*«00. 

— — •; — or 

~~N*.FO  *  1  • 

Nr  A  ON  '«  0.’ 

i  rtf  *  "CiTr* r~  97^ 

An '  *  o.o. 

vnf  *  o.o. 

—  - r-r.'7'ir.TPV' 

ru  «*■  rt.o. 

—  rf  ’  8.0. 

f  if  *  9.0. 

*■  ft  •  ‘  o.o. 

HP  A  i  0  .  14**01. 

H'PFV  i  ow.  ■ 

HOF  A - *~  8.0.  " 

—  HOFV  *  0 . 0 i 

- hPFA - ~T.'9'. 

hPFV  *0.6. 


1 

1 

I 

I 

t 

l 

I 

I 

! 

I 

I 


iirs 

9 

A.pFtAAt 

— CITW - 

""■  " 

P»fF6p 

'* 

.4F*/t  1  • 

ojtrsr 

9 

0  ,  |  TV  tf)>t 

— vnrs*- 

9 

MAUPSS 

9 

0. 

j-pwooi 

9 

o.TVtni  t 

FSC<»L» 

a 

■»;iFT?vy; 

9 

snow 

9 

c«o« 

— <v<rrwr 

’"9  ' 

~ (TTa. 

6«fn' 

9 

(I.4F.A),  A.Jf.fil.  A,3t  O.A*  A. At  A. A.  A.  A>  A. At  A.A't  irTAI 

CCST 

9 

9*7r»fl|»  0«7?F**S*  0*0*  0,0*  0*0*  0*0*  0*0*  0*0*  0*0*  0*0* 

T'INNFl  nonss  sfCTtn'i  *  |i|.n4?n  so  FT 


- PilTL  PA^AurTPPS  -  VF - VT 

l?.onn  i?.non 

- OF - 

74?. 1 70 

~RF - OF - OF - Rt*FV - 

qis.oso  so.soo  i4s.oon  ?o.srt 

HPFV 

TRAIN  CAPACITY  5  lHOO.onnn  Clt«IC 

ffft  ano 

94.5000  TONS 

PAIL  rxTT'ISION  -  FXT.  WATS  =  IP 

.on  switch 

MOVF  PATF  =  POOO.OO  OISTAMCF  SFTWFFN  SWTTCHFS  «  « 

PAIL  MAI^T.  PAPAS'TFPS  -  T  1  **F  TO  WFPAIW  = 

?.nn  cost  of  matfpials  =  so. on 

DAYS  BFTWFFN  «A! 

p»I"Apy  r.ooii^o  siiopoaf 


Bnn 

rvrAVATION 

MNSUPnonTSO 

|HI  "UM  ■  E-I  P 

laPPipiT 

SPArfjn 

t-1rr.,rT.F 

C’NH  o^lF  a- 

"X  FKJ7»T H-*'  A  VT  J  iriiPiTi*  rr 

Tynr- 

r  i 

IT 

ITT  1T"*T 

os. 00 

s  ,nn 

ggQQOO,t10 

9.00 

1  .on 

n . 

1 

■  Bn- 

h  9  n  n 

’  ~On.no 

5,ftft 

4Q^QQQ#on 

T  .*1- 

?.00 

lh*0‘  ' 

Oi.oO 

Q0.no 

?.on 

10.00 

ft*n* 

i*nn 

*  .V 

*fnn 

7s.on 

C 

C 

iT 

«  ,  pn 

n  rh'i 

i ,  n  n 

0.9' 

1  .09 

ApH-n 

7s.no 

1  .on 

^  .no 

^  ,nn 

i.nn 

o.-i- 

i.pH _ 

'.no 

TS'.oo 

■PTOO 

- ’TTFT 

*Ln1' 

“?,nn 

'  lSi' 

y  n  h  n 

SC.no 

S.ftr 

■  „  H  H 

’.no 

II  ,p* 

lpH« 

■  .on 

S  0 .  n  ft 

1  .on 

■i  +  llPI 

■  .nn 

1.00 

IT  .-I* 

T.no 

0.0-0 

so. Of) 

?.o  n 

s M 

h.nn 

..on 

*  .A* 

i 

sn* 

n.nin 

?s.oo 

s ,  no 

s.H' 

Ap  mi 

i.on 

o.o- 

: 

I.op 

?s.oo 

1  .no 

hrm 

i..i|n 

..00 

«  .«* 

..N* 

?s.0'fl 

- ?.~nn - 

■  — 

■  .no 

% .  r  n 

i;ht'  - 

[,n  i 

T  .  T|  ft 

0.00 

s.nn 

A.  nil 

..no 

1  .0' 

H.0O 

o.no 

1 .00' " 

-  >.09  - 

..ho 

4.00 

»hos 

1 

I.O’ 

9.00 

o.on 

?.oo 

i.Frin 

t.fth 

>+Tl» 

O.M 

■'..no 

NflTr. FyCA'/ATION  PPfKFSS  rS  TMDICiTFS  _A»IY  PPOCFSS  OTHFP  THAN  THOSE  IN  TAHLF 


VI-23 


PARAMETER  VALUES  AFTER  INITIALIZATION  BY  THE  SUBROUTINES 


ir.rvrwt — -  ' 

Ti - 5  ft:r?onrro?T 

TTT  5  O.IF.  TtUft 

n - r~ CTTTfi^r^nTT 

XM4X  =  0.1 70°?P ♦ 

TMiT 


DTPPMT 


proof 


CL 

CPT~ 

dti  " 

me 

fyfcfT 

nrn 

f)TM 

KK 

PPM 

P 


ft. IF. 07.  ft.4F.ftF.  O.If.ftF. 


o. PF.n?. 
o. i7FF.ni. 

n.  KF.ni. 

ft.P4F.ft?, 

o. o. 

ft.FFF.O  1  .' 

- 


n.FF.m. 


0.F7SF.71.  n.«F?sF«ni.  ft.iiSF.np,  ft .  1 4 1  iff  .ftp «  n.i77FF.n?.  n.pniPFF 

n.putr.n?.  ft.1|PFF*l-?*  ft.i4F.np.  ft.1F7SF*0P.  ft.1QFF.ftP,  ft.4PPFF.ftP. 

"fiVS^r  n,  p . — p^V'T.O? , — iv; 


J7sr«o?.  o. 

7011 ?5F 

ft.7P4l7FF.0P.  0. 

7  loft  7SF  ♦  0  ? . 

0. 74Q175r*0?.  0.0.  0.0. 

o ,  *  •  O.o. 

0. 

O.ft. 

0.0, 

o.o.  o.o. 

o.ft. 

O.ft. 

ft.O. 

ft. ft.  n. n.  n.o.  o 

o  .0  ■  o.o. 

ft.O. 

O.o. 

o.o. 

0,0.  0.0. 

ft.O. 

0.0. 

O.ft. 

ft. ft.  ft. ft.  ft. ft-,  ft 

0 • n  *  o.o. 

ft. ft.' 

ft.O. 

ft.O. 

o.o.  o.o. 

O.ft. 

n  ,0. 

r.o. 

o.O.  o.o.  O.o.  o 

0  .ft  .  0  .  ft . 

ft.O. 

0.0. 

0.3. 

ft . ft •  0.0. 

O.ft. 

ft.O. 

ft. ft. 

ft. ft. 

rc  5  n.pF.nn. 

PPM  I  n.FF.n], 

tr  =  n.FF.nn. 


nrpc  x  n.iiPF.ni,  _  _  _ _ _ _ _ _ 

fboofo  x  n.iiFF.n?,  _ _  _ _ 

ftp**";  x  n,i4F.ni. _ _ _ 

n  impmm  -  n.iF.m.  .  . . .  ...  . 

romfm  -  o.iF.oi.  n.4F.ni,  o. if.  oi*  n. if. ni.  o.o.  o.fl.  o.o.  o.o.  o.o. _ Oj_n. _ 

pneFT  X  0.B4FF.01.  ft.P1PF.ftl.  _0 ,  o  ft?P «  0 1  ._  0.7 11  Fj.  ft  N _ 0,0.  O.O.  0.0.  ft.O.  O.O. 

FFMft 


ft.O. 
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loco 


mc 
~"mi_ 
ncass 

NOOTNT 
NTO 
NTM 

nt« a i  ' 

XP 

ntmtlp 

MTMLPP  s  I  . 

~  MT»»C*  "si. 

sl  's~-(i'.'w*n'l.’ 

tciipvx  *  O'.  O' 

TrjJPVY _ s  O.n 

— mr>ir 
*-  tv? 

~  vn 
vs 
"  vf 

"VF 

- VMiS 

-  -f. 

ML 

- xns - 

“MiXLn"  ’ 

NVFMCL 

— wiHsvr" 


SWITCH 


tFNVinr 


FV^MTD 

“  O.IF.ni. 

MftXMTM 

-  40. 

frtTW? 

1  n.TF.ni. 

TA 

3  o.isf.o?. 

“  oT>>*oi« 

“  nn 

s  n.?n^?r« Vi. 

V  AM  IN 

VAmA'X 

n.lF.OA. 

“  TH  ■ 

■T  r»#nr»  OP. 

WA 

.  n.7<;r_«|. 

tOA 

3  A.PAF.OO. 

CKA 

3  n.lA7r-01. 

offo  AT 

7  n.?F-nc. 

A"»r 

T  0#<1# 

o .  n .  o .  o «  o 

*■"  VTmfm 

s  0 . 1  r  *  n  t  •  n 

.IF. 01.  n.pr.01.  0 

vccst 

r  ' 0.n0?r*01 , 

r.THF-.hl."  0.7F.OI 

CPi/MS 

s  b.o. 

'  FKT 

3  O.lcf-07. 

tFNn 

-  - - - 
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III.  PROGRAMS  AND  SUBROUTINES 

A.  PROGRAM  GEOMOD 


PhGGRAM  GEOMOO 


GEkEKATES  geology  file 


COMMON  /10C0M/  NLINE.NPAGE 

DIMENSION  SURF  130.30.71  .PR0PI6.2S I .SPEC (7 >• INDEX (25) .BUFF (27) 

10  FORMAT  Uhl »///////////// .25X. 8 8HEEE FEE  A  X  CCCCCC  AAAA 
A  V  V  AAAA  TTTTTTT  1  OOOQOO  NN  N./.25X.86HE 

b  XXC  AAV  VAA  T  10 

C  0  N  N  N«/ .2Sx .86HEEEE  X  C  AAAAAAAA  V 

D  V  AAAAAAAA  T  10  0  N  N  N./25X.86HE  X 

EX  C  A  AVVA  AT  10  0 

F  N  N  N./.2SX.B6HEEEEEE  X  X  CCCCCC  A  A  V  A 

G  ATI  000000  N  NN.////. 

h  45X .40HM  M  000000 

i  r.r-noD  eeeeee  l./.msx.lohmm  mm  o  o  d  o  t 

J  M  M  M  0  0  0  0  EtEE  L./.45X.40HM 

K  m  M  0  GO  U  E  L./.45X.  46HM  M  000000 

L  DDOsD  EEEEtE  LLLLLLL .//////////. 27X . I 4HPREPARE0  FOR  .S9X 

M.,p~y  .//. 14X.40HUN1TED  STATES  DEPARTMENT  OF  THE  INTER  I  OR. 34X .28H 
NG"’.t.RAL  RESEARCH  CORPORA!  I  ON.// .  26Xt  I  SHbuRtAU  OF  MINES.  SOX.  2IHRASH 
Ol'.GTON  OPERATIONS*//.  1  7X.34HHU1LDING  20.  DENVER  FEDERAL  CENTER.35X 
P.VpISOI  WILSON  duuLEVARO,  SUITE  700 .//22X .24H0ENVER .  COLORADO  8 
pO',ES.m3x.  2  b  MARLING  TON,  VIRGINIA  22209.///.S3X.30MUNOER  CONTRACT  N 
Rij'^E'Er  mO  1  1  0233) 

V_  i  !St  3  9^*# 

N^AGE-C 

k-cAD  (  jb,20.£NO=30)  TaGI  •  TAG2t  (SPEC  ( I )  t  I«l  *7> 

Gu  7  0  ‘iO 

*  H  41  H  * 

..-••‘LDLbROO 

I.-A'J  20.  TAGI.  TAG2.  ISPEC(I)  .1*1.7) 

IF  It  Or  .mv)  3  3.  SC 

<fr  «i  «  >  * 

20  FORMAT  I2AS.7F10.0) 

30  P-'lNl  m 0 

,c  F  .'MAI  I  lHl  ,31 1  In*)  >68n  abnormal  ENDING  -  END  OF  INPUT  FILE  REACHE 
-0  -  EXECUTION  TERMINATED  ,32IIh»I) 

4 S  P-INT  IU 
P-INT  ! 0 
Call  EXIT 
SO  P - 1  ’ , T  .0 
h  -  I  *,  T  )  0 

bO  IF  (  T  A'j  1  *  EG  .SnGEoLO )  GO  TO  60 

H-1U  ,'J 

7G  =  -MjT  I  In)  .  131  ln‘l  ,IOmH  THE  FIRST  C A  I)  HAS  TO  BE  A  GEOLOGY  CARD  - 

-  .'lease  refer  to  program  documentation  -  execution  terminated  • 

-  I  3  (  il.M  I  I 
ETbP 

o9  r,  '  =  S-'tL  1 1 1 

'  ale  x =shlC  ( 2 ) 

*,>  ®SpEL  I  3  ) 

SCAi.E  f  xV’EC  14) 

SAIL  PAoER(2) 

Ph  l  *.  T  VO.  TAGI.TAG2*  (SPEC  (I)*I*It7) 

Ni  i  ‘.F  =  .'.L  InE«2 

SO  r  ,PMAT  l//.2fcX,2AS.7FI0.4) 


*»V*i»*nS^OO 

ICO  hFMj  l  *u.20.END  =  30)  TAG1.TAG2.  I SPE  C  1 1 )  .  I  *  I  .  7) 
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tu»te 


c 

c  •••••UJC6400 

100  HEAD  20 «  TAGI « TAG2. (SPEC (I) .1=1 1 7 1 
IF  (EOF. 49)  30.110 
C  •«••• 

110  CALL  PAGERI2) 

PRINT  90.  TAG1.TAG2. (SPEC ( 1 ) . 1*1 . 7 ) 

NLINE=NLlNE-»2 

C 

IF  (TAGI .NE.5MGEOLO)  GO  TO  130 
PRINT  120 

120  FOPPAT  (lH0,3d(lH*).bSH  ERROR  -  TWO  GEOLOGY  CAROS  PRESENT  -  EXECUT 
-ION  TERMINATED  . 37 ( I H« ) ) 

GO  TO  45 
C 

130  IF  (TAG1.NE.5HSURFA)  GO  TO  160 
K=SPELd  ) 

C  . 65500 

C  140  RF AO  (30.20, ENO  =  30 )  TAG1.TAG2.  ( SPEC ( I ) , 1  =  1 . 7) 

C  . 

C  •••••LOL64OO 

140  READ  20.  TAG1.TAG2. ( SPEC ( I ) . 1 »I . 7) 

I F ( EOF ,49 )  30.145 
C  •••••H5500 

145  I F ( T AG1  .NE.  5m  )  GO  TO  110 
CAlL  PAo£R(2) 

PRINT  90,  TAGI. TAG2, ( SPEC ( I ) ,1*1,7) 

Nt.INE  =  NLlNE»2 
I=SPEL(I  ) 

J=SPEL (2 ) 

IF  ( I  * J.LE • 0 )  GO  TO  150 
StjPF  ( I  ,J.K)=SPEC(3) 

150  I =SPEL (9 ) 

J=SPEL (5 ) 

IF  1 1  * J.LE  *  0 )  GO  TO  140 
Sl)RF(I  .J.K)=SPEC(6) 

GO  TO  140 
C 

160  IF  (TAG1.NE.5HPLANE)  GO  TO  190 
KsSPEL ( I ) 

0EPTH=SPEC(2) 

DO  190  1=1. NX  ; 

DO  170  J= I ,NY 
SiiRF(I.J.K)=OEPTM 
170  CONTINUE 
160  CONTINUE 
GO  TO  100 
C 

190  IF  (TAGI .NE.5HRA 1SE )  GO  TO  230 
200  KiSPEL ( 1 ) 

01 ST=SPEL (2) 

00  220  I  =  1 « NX 
DO  210  J=I .NY 

S'JRF (I .  J.KI  =SURF(  I  .J.X)  *01  ST 
210  CONTINUE 
220  CONTINUt 
GO  TO  100 
C 

230  IF  (TAGI.NE.5ML0i.-Ert)  GO  TO  240 
SPEC (2) =  -SP£C(2) 

GO  TO  200 
C 

240  IF  (TAGI .NE.5MT1LT  )  GO  TO  250 
IA=SPEL(1> 

IR=SP£L (2) 

0EG*SPEL (3) 
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P  T  X  -  ~.PL  L  (  o  ) 

PTY=nkEL(6) 

PT^  =  Sr-t.(_(7> 

CALL  tilt ( NX<NY<SCALEX<  SC ALLY, surf  1 1  <  1  .  1 A )  . 

I  UEG. AX  I  S<SURF<1<1 .IB) iHTX.P1Y.PT7) 

GO  TO  100 
C 

2S0  IF  ITAGi.NE.bHuENO  )  GO  TO  260 
I A=SPEL ( 1 ) 

IO=SPEL  i 2 ) 

IC=SPEL(31 
!h=SPEC (A) 

SCOPE=b"EC (b) 

IF  (SLOPE. Er. 0.0)  SCOPE=AMINO(NX,NY.3> 

CALL  BENDER  (NX .NY .SCAlEX. SCALEY.  SURF  ( 1  •  l  •  l  A)  .SURF  I1.1.1B). 

1  SURF  <1.1.10.  SURE  <1.1. 10)  .SCOPE  .DUMMY .DUMMY) 

GO  TO  100 
C 

2o0  IF  (TAGI.nE.ShPROPE)  GO  TO  280 
J  =  bPEL  ( I ) 

DO  270  1=1.6 
PROP ( I » J>  =SPEC< I • 1 ) 

270  CONTINUE 
GO  TO  100 
C 

2S0  IF  < TAG.  .SL.ShGRAPh)  GO  TO  290 
CALL  tP-GE 
Nil 

2  d  3  F  =  b  P  t  L  l  N ) 

IF  (SPEUN).LE.O.O)  GO  TO  266 
CALL  GRAPH  (SOME (l.I.K) .NX.NY.K) 

N  =  N«  I 

IF  (N.lT.d)  GO  TO  2a3 
?h 6  CALL  PA0ERI99-)) 

Go  TO  IOC 

C 

2v0  IF  (TAG) .NE.SHLAYEM)  CO  TO  310 
I  SURF:  jPtCUl 
I "  0  C  F.  =  b  P  E  C  (?) 

1 1.  A  r  '  =  SpEC  (  J) 
irDF x  ;  Ilayhi  =  IroCK 

....  ITE  I  ILAYR.3G0)  (  (SURF  1 1 1  J.  1  SURF  )  .  1*1 .NX) » J*1 <NY> 

300  format  t  (IPElB.10)) 

Gu  TO  1 oO 

313  IF  (TArI.Nl.Shr’ElAX)  go  TO  320 
K=SPEL ( 1 ) 

T i ilE R  =  SPEC  (2) 

IF  ( TCLlr.Eo.0.0)  TOLER=O.OOS*(SCALEX*5CALEY) 

CALL  rELAx (SURF ( 1 . 1  .X ) . NX.NY .TOLER) 

Oft  TC  1  v.  0 

320  IF  (TAOl.NL.SHMAKEF)  GO  TO  460 
1  r  A  a.  h  i  n  P  E  C  (  1  ) 

1  “ axl  =  SPEC I  2) 

Rf.INO  50 

rrITE  (bO .  330 )  NX.NY.SCALEX,SCALEY,UM)EX(1LAYR).1LAYR«1,25). 
1  (  l  PROP ( 1 . 1  ROCK  1 . 1  =  1 ib) .  IR0CK=1 .25) 

330  F' -"At  (2IS.21 IPEla.IO) .2bl2. (1PE16.10) > 

00  340  I  =  I . 1MAXL 

PER  1  NO  1 
340  COMINJL 

C,'i  3p0  j  =  1  .r.Y 
ON  370  1=1. NX 
rt'PF  (  I  )  =1 
Kill  F  (2)  =  J 
DO  9b0  K  =  3 . 27 
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HUFF  l K >  —  -10.0  E»50 
350  CONTINUE 

DO  360  K=  1  •  IMAXL 


C  •••••05500 

C  RfAO  (K.300.ENO=420)  BUFF  <K«2> 

C  . 

C  •••••LDC6400 

RFAO  (K.300)  BUFF (K»2) 

IF  (EOF.K)  420(360 


r  ••••• 

360  CONTINUE 

WRITE  (50.300)  (BUFF (K) .Kh1,27) 

370  CONTINUE 
3B0  CONTINUE 

call  ERAGE 

PRINT  390 

390  FORMAT  ( 27H1  GEOMOO  TERMINATED  NORMAL.LV) 
GO  TO  45 
400  PRINT  410 

410  FORMAT  <1H(,24H»»»»»  UNRECOGNIZED  •••••. 
1  82X.24h”»#»  UNRECOGN1ZEO  •••••) 


GO  TO  100 
420  CALL  EPAGE 
430  P  rJ  1  NT  4  4  0  *  K 

440  format  (44HOLOG1CAL  ERROR  -  YOU  ATTEMPTED  TO  OH  LAVER  .II. 

1  52M.  BUT  DIO  NOT  5PEC1FV  IT  BV  MEANS  OF  A  LAVER  CARD 

2  30MGEOLGGY  FILE  BU1L01NG  DELETED.) 

450  IF  (K.GE. IMAXL)  GO  TO  4S 


K  =  K*  1 

•••••H5500 

RfAO  <K.300.ENO=430)  BUFF  (K«2) 
GO  TO  450 


•••••LOL6400 
REAO(K.JOO)  BUFF (K» 2) 

JF  (EOF .A)  430.450 

•  •••ft 

400  IF  (TAG1.NE.5HSCALE)  GO  TO  490 
1SUPFA=SPEC< 1 ) 

1  fuoFH=SPEC (2) 

SCALE=SPEC  <  3) 
on  480  j=i .ny  . 

00  470  1=1 .NX 

SURF  ( I .  J. I SURFB) =SCALE «SURF ( I . J . I  SURF  A ) 

470  CONTINUt 
480  CONTINUE 
GO  TO  100 

490  IF  (TAG1  .NE.5H5UM  )  GO  TO  520 
I  SURF A=aPEC ( 1 ) 

1SURFB=SPEC(2) 

1 5URF  t=5PEC (3) 

00  510  J= 1 . NV 
00  500  1=1. NX 

iq F  ( 1 .  J.  1 SURFC)  =SURF  ( I  . J. i EURFA)  »SURF  (I  .J.ISURFB) 
500  CONTINUE 
510  CONTINUE 
GO  TO  100 

520  IF  (TAGl.NE.SrtDIFFE)  GO  TO  400 
1  SURF  A  =  5PEC ( 1 ) 

1  SUPFH  =  SPEC ( 2 1 
1SURFU=SPEC(3) 

00  540  J=1 .NY 
DO  530  1=1 .NX 

SuPF ( 1  *  J. ISURFC ) =SURF < I . J. I  SURF A ) -SURF ( I . J. I SURFB) 
530  CONTINUE 
540  CONTINUE 
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Go  TO  100 
t  uD 

SuhROUT  l.NE  BENDER! NX. NY.SCALEX, SCALE Y. A. d*C*D.£.F.G> 

C 

0 1  ME  NS  ION  A  (  30. 30  I  .B(30.30I  .C< 30.301  *0(30.30)  *0X130*30)  * 

I  BY  (30.30)  .  CLOSE ( SO • 4 )  . PO InT  ( 3. 900 ) . Q  ( 6) 

C 

C  COMPUTE  THE  PARTIAL  DERIVATIVES  FOR  SURFACE  B.  THE  NEW  MEDIAN. 

C 

0x  =  G .b/SCALEX 
DY  =  0 • S/sCALE Y 
I.-;FLON  =  t 
Lim=NJi-l 
L  1  M  Y  =  NY  ■*  1 

Tf)LEP  =  0.00b<'  (SCALE A. SCALE Y) 

C 

C  THE  4LLJP4CY  TOLERAt.CE  FUr  the  bender  IS  SET  AT  ONE-MUNOWEOTH  of 

C  the  AVERAGE  OF  The  SCALtX  AND  SCALEY  values.  THIS  SEEMS  TO  BE 

C  ACCURATE  ENOUGH  -  SOME  SMOOTHING  IS  PERFORMED  BY  SHF  IT. 

C 

Du  00  Ja- 1 « ny 

Rx  <1  ,jb)=OX‘>(-J.O<>H<l.  JB)  ♦4.0®B(2.JB>-B(3»JB>  > 

Dr.  TO  (a=B.LlMX 

fax ( IB. Ja)-Ux* <b( IB  *  1 . JHI -B( IB-1 . J6II 
10  CONTINUE 

•‘A  (NX,  Jo)=0X»(d(NX-2.Jb)-4.0*B(NX-I.Jb)  *3.0»B (NX* JB> ) 

BO  CONTINUE 

CO  AO  Is-ItNX 

By  (  I b.l >  “DY»(-3.0»B(  IB.It*A.0»b(I(j,2)-B(IB*3) ) 

Du  30  J3*?.lIMY 

BY  (  In.  JB>=Dv*(rt(lH.JB»l>-B<ia»Jb-In 
30  CONTINUE 

L  i  (  I  a  *N  Y  )  =OY*  (b  ( lb* NY-2)  -4 • 0*d (  IB.NY-i  )  *3.0*B(  1B.NY)  ) 

*0  CDNTlNUc 
w 

C  COMPUTE  7r£  X  AND  Y  DIRECTION  COSINES  OF  TmE  VECTORS  NORMAL  To 

C  S'  '"ALc.  i  AT  ITS  GrID  POINTS.  ARRAY  bX(IB.JB)  IS  USED  FOR  THE 

C  X  UIklL I  ION  COblstS  And  ARRAY  BY(lH.Jd)  IS  USED  FOR  THE  T 

C  DJRELTIUN  COSINES. 

C 

DO  FO  lo-I.NX 
DO  SO  US=1 »NY 

Vr CMA&xsDRT (BX(ld.JHl«dX(lB.Jb) ♦BY(IB. Jd)»BY( lB»Jd)*1.0) 

Bx  (  Ir*.Ja)  =dX(  Id.JBT/VECMAG 
t(Y  !  IB.  jo)  =  3Y  (  IB.  Jdl/VECMAG 

S3  CDNTINJl 

toG  COST INul 


FOR  EAL.1  POINT  on  SURFACE  A.  FIND  ThE  NORMAL  VECTORS  ON  SURFACE  B 
WHICH  PASS  Through  that  POINT.  EXTENO  EACH  of  These  VECTORS  from 
Su-rAuL  a  TO  iUhT  ACE  C.  IN  ORDER  TO  DETERMINE  HOW  FAR  THE  MEDIAN 
RI.ANE  .AS  ar.EN  DISPLACER  ALONG  THAT  VECTOR.  ADO  ALL  OF  THESE 
0  ISPLALE-FfiTS  TOUlTmER  AND  DIVIDE  BY  THE  NUMBER  OF  VECTORS  FOUNO* 
IN  OrDEr  TO  CuMpoTE  TnE  DISPLACEMENT  OF  THAT  POINT  ON  SURFACE  A. 


Is  - 

ThE 

*4  A  M  p. 

or 

f  HE 

Ar/rfAY 

FOR 

THE 

old 

SURFACE  WHICH  IS  TO  BE  BENT. 

H  = 

ThE 

NAMt. 

OF 

THE 

APkAY 

FUR 

THE 

NEW 

MtoiAN  surface. 

C  = 

T-.E 

NAHL 

Or 

ThE 

A^kAY 

FOR 

THE 

OLD 

MEDIAN  SURFACE. 

b  - 

ThE 

NAMF 

0  F 

The 

ARkAT 

FUR 

THE 

NEW 

SURFACE,  after  benoing. 

Nh  t  s  =  0 

D)  ISO  1 A  - 1  .NX 
DC  I'O  JA=1,ny 
S'.'''.x  =  0 .0 
S  yMY  =  0.V 
S'  JM7-G  •  U 
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ooooooo  r>oo  ooo  ooo  000000000000 


count  -0  #o 

iheg=maao  < 1 , ( IA-INFLUN) » 

If NO=MlNO<LlMX. < I A ♦ 1 NFLUN ) ) 

JREG=MAX0<1.  (JA-INFLUN)  ) 

JFND-M1N0 (LIMY* ( JA* INFLUN ) > 

FOR  EACH  SCAlEX-HY-SCAlEY  REGION  ON  SURFACE  B.  DETERMINE  ‘-’HETmER 
IT  IS  POSSIBLE  TO  SELECT  A  NORMAL  VECTOR  FROM  ThE  REGION  WHICH 
PASSES  THROUGH  THE  POINT  CURRENTLY  BEING  PROCESSED  DN  SURFACE  A. 

WF  START  BY  GUESSING  ThAT  THE  OESIREO  NORMAL  VECTOR  GOES  THROUGH 
THE  CORNER  OF  The  REGION.  WE  then  try  to  refine  that  guess,  if  in 
DOING  SO  WE  MOVE  The  NORMAL  VECTORS  STARTING  LOCATION  OUT  OF  THE 
REGION.  WE  OU1T.  OTHERWISE.  WE  OUIT  WHEN  WE  HAVE  EITHER  FOUND  THE 
OFSIREO  VECTOR  OR  WHEN  WE  HAVE  MOVEO  IT  LESS  THAN  DNE-HUNOREUTH  OF 
ThE  GRID  SPACINGS.  IN  ANY  ITERATION.  THE  VECTOR  IS  (VX.VY.V2) • 

00  1  AO  I B- I  BEG  * icnd 
00  130  JB=Jd£G. JEnO 
Dx=0.0 
DY=0.0 

70  VX=SCALEX* < IA-1B-0X) 
vy=scally*(ja-jB"OY) 

The  following  is  THE  HARMONIC  interpolation  SCHEME. 

VZ=A<IA.JA>-<  <1-DX)«(1-0Y) »B( IB.JB)»OX»(I-OY)»B(Ib»I.JB) 

1  *0 Y * ( I -OX  >  »B ( I B , J8 ♦ I ) «0X»DY*8 ( I B« I . JB» 1 ) ) 

VMAG=S0RT(VX«VX.VY»VY.V2»V2) 

IF  (VMAG.EQ.O.O)  GO  TO  72 
VX=VX/VMAG 
VY=VY/VMAG 
V2-V2/VMAG 
GO  TO  7A 
72  VX-0.0 
VY=O.C 
V7=0.0 

THE  FOLLOWING  IS  The  HARMONIC  INTERPOLATION  SCHEME. 

74  VFCX=< 1-DX)»< I-UY)»6X  ( la.  J8.)  »0X*  ( 1-OY )  *bX  ( I  a.  I  .  JB) 

I  <  .Oy»(l-OA>*aX<IU.Jo*I>*UX*OY*bX(IB*I.jb»I> 
VFCY=ll-0A)»U-OY>»8Y<Ib.JB>.DX«(l-OY>»BY(IB»l«JB> 

I  .OY»(I-OX)«BY(IB,Jb.I).OX»OY»BY«IB»I .Jb»I) 

VFCZ=SuhTU.O-VECX»VECX-VECY»VECY) 

COSANG=VEC**VX.V£CY»Vy.VEC2*V2 
SINANG=SORT < I.O-COSANG*COSAnG) 

MAKING  ThE  SIMPLIFYING  ASSUMPTION  THAT  A  ANO  B  ARE  LEVEL  SURFACES. 

OIST=VMAG»SINANG 

OVX= (VX-VECX) ‘SIGN (1,0. COSANG) 

OVY=(VY-VECY)»SIGN< 1. 0. COSANG) 

OVMAG=SURT (OVX»OVX»OVY»OVY) 

IF  (OVMAG.tO.O.O)  ovmag*io.oe.so 
ovx=ovx/ovmag 

OVY  =QVY/0vMAG 

OX=OX.OIST*OVX/SCALEX 

OY=DY‘DIST»UVY/SCALEY 

NOTE  THAT  NO  LOGIC  IS  INCLUDED  FOR  STEPPING  OVER  GRIO  LINE 
BOUNDARIES.  IN  THE  G.ENERAL  SENSE.  THE  PROGRAM  IS  ALLOWED  TO 
WANDER  ONE-OUARTER  OF  A  GRID-LINE  SPACING  INTO  AO JACENT  GRID 
SOUARt'S.  IN  ORDER  TO  ENSURE  THAT  OESIREO  POINTS  WHICH  FALL  EXACTLY 
ON  GRIO  LINES  ARE  FOUND.  HOWEVER.  IF  ThE  PROGRAM  INTRUDES  FARTHER 
THAN  ONt-QUARTER  OF  Th£  GRID-LINE  SPACING  INTO  AN  AOJACENT  GRIO 


VI-37 


L  N  .-uAc t  *  f nL  GLArtCii  I S  r.Nutu  -  I HE  UcSiRtU  NORMAL  VtLTOK  IS  A()SlNT « 

C 

IF  iOX.LT.-0.2S)  GO  10  1  i?0 
IF  (OX. 01.  1.7b)  00  10  120 
IF  (uY.LT.-0. 25)  00  TO  120 
IF  (Of. lil.  1.201  00  TO  120 
IF  ( U I S I . GE • T uLEh )  00  TO  70 
C 

C  AT  THIS  POINT.  A  NGhMAL  VECTOR  PASSING  ThKL'vUH  THE  DESIRED  POINT 
C  00  SURFACE  A  MAS  otEN  FOUND.  IT  Is  A  UNIT  VECTOR  HAVING  THE 

0  COMPONENT  S  (VX.Vf.V21.  IT  PASSES  THROUGH  SURFACE  b  AT  THE  POINT 

C  WHERE  X= (Id-1 »0x) “SCALEX  ANO  f=(JH-1.0fl*SCALEf.  NEXT  HE  KILL  FIND 

C  Th£  POINT  AT  WHICH  IT  INTERSECTS  SURFACE  C.  RE  HILL  FIRST  GUESS 

c  that  it  intersects  surface  c  at  the  same  coordinates  at  hhich  it 

C  I M r.RSEL TS  SUhFACE  B.  WE  HILL  THEN  REFINE  OUR  GUESS. 

C 

1C=  Id 
JC  -  Jb 

U<C=OX 
D  V  C  =  0  V 
2A-A ( IA. JA) 

BO  VFCX=SLALEX«( IA-IC-DXC) 

VI  CY^SlAlEY  *  ( JA-JC-OfC) 

C 

C  ThIS  IS  ThE  HARMONIC  INTERPOLATION  SCHEME. 

VE CZ=ZA-(  ( l-lMC)»U-OfC)»C(IC.JC)  ♦UXC" < 1-0YC»«C ( 1C*  1  *JC> 

1  .u(C* ( 1-G»CI»C(1C« JC* 1 ) ♦OXC*DYC»C( 1C*1.JC»1>> 

V'  CMAG  sow!  lV£C/»VLCX.vECr«VECY‘VECZ»VECZ> 

IF  i vf LHAG.EQ.O.O)  GO  TO  82 
vrcx  velx/vecmag 
VI  Cl -VtLf/VECMAG 
V- ( 2=VluZ/VECHA0 
.Vi  TO  H- 
e-2  v-Cx=C.G 
vrcf'O.o 
V  t  C  7  •  0 . 0 

d<*  Cr)SANO»VECX«VX.VtCf*VY*VECZ»VZ 
SINANG=SuRT l 1 .0-COSANG»C0SANG) 

C 

C  making  the  SIMPLIFYING  ASSUMPTION  that  c  is  a  level  surface. 

c 

0 1  ST  - vEuM AG^S I  NANG 

(  Fx-VFCx)  ->s:  uN(  1  .C.  COS  ANO  I 
0  7  f  -  ( V  f  -  Vf  Cf  )  *s  10!.  ( I  •  0.CUSANG1 

Ov'MAO  =  S*.R  T  (tiVX»DV'X»;jVY*D7f ) 

IF  (D«vAG.Eu.3.G)  OVMAG=IO.OE*SO 
D,X  =  j7X/l.'VM-f. 

OVf  =UvY/uVMAG 
C 

c  T~£  VALUE  OF  GIST  Uivts  THE  DISTANCE  AT  WHICH  THE  NEXT  ITERATION 

c  Is  TO  DiCU.  The  values  OF  DVX  ANO  DVf  GIVE  THE  DIRECTION. 

C 

DxCN-l'Xu*CIsT»DVX/SCALtX 
OvCr.  =  l>Y(.OISToOVf/SCALtf 
1  i  -OxL'J 
Jr-OYLN 
n»C,N  =  OXLN-IX 
OfCN=OYLN- JY 
C 

C  This  IS  Thc.  LOGIC  FOR  STEPPING  BACKHARO  over  grid  souare  edges. 


IF  (DXLN.GE.0.0) 

GO 

TO 

90 

o>  cn=oxln. l . o 

1«-1X-1 

IF  (OfsN.CE .0.0) 

GO 

TO 

100 
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c 

c 

c 

100 


c 

c 

c 


120 

130 

140 


ISO 

160 

170 

160 


UYCN=DYLN»1 .0 
jr=jv-l 

this  is  the  logic  for  stepping  forward  over  grio  square  edges. 

1C= IC» I x 

jc=jojt 

DXC=DXLN 
DvC  =  0''LN 


IF 

(1l.LT. 1) 

GO 

TO 

120 

IF 

(1L.GT.NX) 

GO 

TO 

120 

IF 

lC  •  C  T  •  1 ) 

GO 

TO 

120 

IF 

( JC.OT.NY) 

GO 

TO 

120 

D1ST <=<1B.0X-1C-UXC)»SCALEX 
DIST  r=(JB.0Y-JC-0YC)*SCALEY 
D  1ST  !-vZ*VHAG-vECZ«VECMAG«>SIGN(  1.0.COSANG) 

TFST=DIST/SuPT (U1STX«D1STX«01STY»DISTY.D1STZ»DISTZ> 

IF  (TEST. LT. 0.01)  GO  TO  110 
IF  (DIST. Gt. TOLER)  GO  TO  BO 

STOPS  DISPLACEMENT  FROM  SURFACE  C  TO  SURFACE  B  ALONG  <VX.VY.VZ>, 

S'JMX  =  SUMX.Q1STX 
SljMY  =  SUMY*01STY 
SUMZ=SUMZ.DISTZ 

count=luunt *  1  .0 

CONTINUE 

CONTINUE 

CONT1NJE 

IF  (COUNT. LE. 0.0)  GO  TO  160 
NPT5=NP I S» I 

POINT (l.NPTSJ* (IA-l)«SCAL£X.SUMX/COUNT 
POINT (2.NPTS) = ( JA-1 ) *SCALEY« SUMY/COUNT 
&01NT ( J.NPTSl-AI 1A, JA) . (SUMZ/COUNT) 

IF  (POlNT(l.NPTS).LT.-SCALEX)  GO  TO  ISO 

IF  (P01NT(2,nPTS>  .LT.-SCALEY)  GO  10  ISO 

IF  (P01NT(1,NPTS).GT.(NX»1>»SCAL£X>  GO  TO  ISO 

IF  (P01NT(2,NPTS).LE.(NX.I>»SCALEY>  GO  TO  160 

NPTS=NpTS-I 

CONTINUE 

CONTINUE 

CONTINUE 


WE  HAVE  NOW  DISPLACED  ALL  OF  THE  GRID  POINTS  OF  SURFACE  A.  WE  HAVE 
PLACED  THE  RESULTS  IN  the  POINT  ARRAY.  WE  HAVE  discarded  THE 
RESULTS  FOR  GRID  POINTS  WHICH  WERE  OISPLACEO  MORE  THAN  ONE  GRID 
SPACING  OFF  OF  THE  SIDE  OF  THE  GRID.  Wt  MUST  NOW  DETERMINE  THE 
HEIGHT  OF  This  oistorted  surface  at  each  GRID  point,  the  results 
OF  THIS  COMPUTATION  WILL  BE  PLACED  IN  THE  D  ARRAY. 


18S  N-12 

IF  (N.GT.NPTS)  N=NPTS 
DO  310  1=1. NX 
X= ( 1-1>»SCALEX 
DO  300  J=1 ,NY 
Y=(J-1)»SCALEY 
C 

C  FIND  THE  N  POINTS  WHICH  ARE  CLOSEST  TO  THE  GRID  POINT  (I.J). 

C  STORE  TnEM  IN  ORDER  OF  CLOSENESS  IN  THE  ARRAY  NAMED  CLOSE. 

C 

DO  ISO  X  =  1«N 

CLOS  '(K.4)  =  10.0E*S0. 

190  CONTINUE 

DO  250  K=1.NPTS 
DX*X-P01NT ( 1 *K) 

T)Y  =  Y -POINT  (2*K) 
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i'J  , T 'jw-v/a a •»; i  * J if 

If  tDisT3G.;,£.CL0bE(N,4)  >  GO  TO  2*0 
L  -  '•■'  -  I 

200  If  IOISTSG.GT.CLCiSEIL.'.))  GO  TO  210 
L-l-I 

lr  IL.GI.01  GO  TO  200 
210  i_  =  L  •  I 
N\»N 

220  If  (NN.Lt.L)  GO  TO  230 

CLOSE  (Nn.  1  I  -CLOSE  KIN-1  .  1 1 
Cl  CSE.  (NN.21  =CLOSt  INN-1 .2) 

close  inn. 3) =  cl  jsf.  inn- l .3) 

ClosE  MN.41  =CLCSt  INN-1  .<«) 

V,=NN-1 
GO  TO  220 

230  Cl  OSt  (L*  1 1  “POINT  !  1  .K) 

CLOaE  (L  <  2)  “POINT  (2.K) 

Cl  iSE(L.3)»kOMI('3.K> 

9SE  ( L  .  4  j  *0 1  ST  SO 
220  l  iTINu’t 
2S0  C'JNT  ! N  Ji 

C  AFTFh  KITTING  a  SECONO-GEGHEE  POLYNOMIAL  TO  THE  CLOSEST  POINTS.  ME 

C  C.'.l  CULATE  AiiG  STGHt  ThF  HEIGHT  Of  ThE  SURFACE  AT  THE  OP  ID  POINT. 

C 

N'.MI!E>'-<S 

2c0  CA..L  SHE  IT  I2.NOMi.EH.  CLOSE  ( 1 .  1 )  .CLOSE  U.  2)  .CLOSE  1 1.31 .0.  If  LAG) 

!f  (IfLAG.LL.O)  GO  TO  290 
N'1'V.EH-  IJMot  '0.2 
IK  (NOMi;!  H.LE.M  go  To  2b0 
P’-'lNl  2/0.  l.j.A.T 

270  FC.hmAT  IavmOE  J"0«  AT  STMT  270  OF  bENOtH  -  SHF  1 T  CANNOT  FIT  At 

1  Idn  valoE  TO  POINT  1  “ .  1 3. ah.  Ja.l3.)SH.  THAT  IS  EAST  * . 

2  K  10.lt. mh.  NO« I ns .F 1 0 • 1 . 7H.  US ING. /* 1  HO . 26A . SHPOl NT . 

3  /  M  NlE;'EH.SA»9hLAST  OH  X.ax. IOhNOHTh  OH  Y  .AX .  6HHE  l&HT  • 

4  Si  i.h  L  .HX.bHOlSI SO./.27X.  I2h— — — -— »4A . 

5  1  Or. ---------- .AX.;  OH------ ---.AX*  1  lri  —  —  —  —  —  —  —  —  —  —  —  . 

b  1C-.----—-  —  ) 

i.'G  2rtS  L-l.N 

H-  1,'lT  £b0.  L*(ClOSE(L*i().A“1«4) 

2p9  ru-MAT  1 30  A ,  1  ■.  .9X.F1 0 . 1  .AX  .F 10 . 1  .AX  ,F1 1 . 1 .4X.F10. 1 ) 

2cS  Cti.'.Ti'.Jb 

..111-  -10.0E.S0 

2-70  CM  1 .  J)  =  ..  ( 1 )  «C  (2)*X.Q(3),Y.0(A)«X»X.Q(S)»X»Y«0(61»Y»Y 

3  00  CON  I  I  NOc 
3 1C  C.V.TI..01 
r-1  T  ,WN 
C 

c 

C  T  » IS  Ei.TkY  POINT  IS  UStO  IN  TILTING  ThE  SUHFACt  ILALLEC  A),  A 

C  K.t i v .. e*p  or  OtC'-tES  Il'tUi  IN  A  HIGHT-HANOEO  FASHION.  AHOUNO  A 

C  rr  .  II'l'.IAl  vECTOm  TmHluOH  THE  POINT  X=PTX.Y=PIY.Z=P)Z.  WHICH 

c  PnlN  .  IN  A  DIRECTION  PHI  «hICh  Vi  ME ASUHEO  IN  DEOhEES.  IN  A 

C  C<'M»As:.-LlKt  Fashion  FpOM  NOHTH  (Ok  eouivalently.  the  Y  AXIS), 

c 

C  ..v.fc-bbOG 

C  t'M»7  TILTINX.N T.SCALEx.sCALEY.A.OEG.AXIS.D.PTX.PTY.PTZ) 

(_  W  t>  •  W  W 

c  « 

c  t. ' .  1  i  TILT 

£fiT»r  TILT 
C  I'f  C  -  tJ 

C  A*IS=L 

C  r>  T  .<  -  fc 

c  JTr=r 

C  r*  T  /  -  f> 
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c 

GAMMA=DEG/57.2957795 
Ph1=-AX1S/57. 2957795 
SlNPHl=5lN(PMl) 

C0SPH1=C0S(PH1) 

np  rs=o 

.00  410  1=1*NX 
00  400  U=1.NY 
Y=(J-1)«SCALEY 
X=(1-1)#SCALEX 

npt  s=np  T  S ♦ 1 

Z=A(1.J)-PF2 

P  =  (X-PlX)«C0SPHl» (Y-PFY)«S1NPm1 
Q0=(PTX-X)#S1NPH1 • ( Y-PTY)«C0SPhI 
ThEIA=S1GN(1 .57079633.2) 

C 

C  (1.57079633  IS  E0UAL  TO  PI  OVER  TWO) 

C 

IF  (P.NE.0.0)  Th£TA=ATAN(Z/P) 

R  =  SQRT  <Z*Z‘P»P) 

PPP1ME=R*COS(ThETA-GAMMA)«S1GN(1.0.P) 

POINT ( 1 .NPTS)=PPR1M£wc05Ph1-0Q«S1NPm1«PTX 
POINT  ( 2 « NPTS) =PPR 1ME *S 1 NPH1 «00«C0SPhI .PTY 
POINT  (3.  NPTS)-PPR1  HE*  TAN  (THETA-GAMMA  >*PTZ 
400  CONTINUE 
410  CONTINUE 
GO  TO  165 
End 

SUBROUTINE  PAGER ( N ) 

C 

COMMON  / 1 OCOM/  NL1NE.NPAGE 
C 

OATA  MARKER  /l/ 

C 

IF  (N»NclNE.LE,40)  HETURN 

n°age=npage»i 

IF  (MARKER. EQ.l)  GO  TO  20 
PP1NT  10 

10  FORMAT  (1M0.25X.60M0  1234 

A  5  6  7  8  </ »26X .80H1 234567B90 1234567890 123 

04567890 12;’45678901 2345678901 23456789012345678901234S67B90) 

20  PRINT  30.NPAGE 

30  Format  ( lMl .50X.30M1MAGES  OF  CONTROL  CARDS  FOLLOW. 43X,5HPAG£  .13) 
PRINT  10 
NL  1NE-*. 

MARkEH-0 

RETURN 

C 

ENTRY  EPAGE 
C 

IF  (MARKER. E0.1)  RETURN 
POINT  10 
MAKKER=1 
RETURN 
ENO 

SUBROUTINE  GRAPM ( OR  1 0 .M .N.NPLOT > 

THIS  SUBROUTINE  PROOUCES  X  -  Y  (THAT  IS.  EAST  -  NORTH)  PLOTS  OF 
GEOLOGICAL  SURFACES.  IF  The  SURFACES  ARE  MORE  THAT  TWELVE  OATA 
POINTS  W 10E.  IT  PRINTS  THEM  OUT  IN  NORTM-TO-SOUTH  STRIPS  WHICH 
ARE  EACH  NO  M0*E  THAN  TWELVE  OATA  POINTS  W10E.  AND  WHICH  CAN 
HE  PLACED  SIOE  BY  S10E  SO  THAT  TME  WHOLE  SURFACE  CAN  BE  SEEN. 

A  SIMPLE  FORM  OF  OATA-CONTROLLEO  FORMATTING  IS  USED. 

01MENS10N  OR  10 (30. 30) .NLABEL(12) 
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c 


f,S  T  r-'  1  >  -  I 


L  .>-M=  1 

L  !  *«*» --M  if.O  ( M  •  1  2  I 


10  L  ! ‘-i I  =L  |rtn-luw4»l 
20  1  =  1..  1 M  : 

2  0  l  1  I  *l. I"1 


P-1'.T 
30  F  0  ft  M  A 1 
1 
2 


J(23nlZUiALUtS*FOrt  SURFACE  .U.26M  -  NORTH  IS  IOwAHO  Th£  10P 
bSH  OF  TriE  PAUL  *  EAST  IS  TOWARD  THE  RIGHT.  (EAST  «  A  0«  I  • 
?3M  NORTH  *  T  G«  J1  STRIP  ill) 


D. *  250  N-l  iN 

J-t,.  I  -K 


rt  1 G  =  0  •  0 

un  70  :=eo.ir.urh 

SI  Ft-  -AuS  iG-ilO  (  1  *J)  ) 

IF  (Sl/t-SlG)  60.b0.SO 
SO  r>  I  0  =  S  1  /t 

oO  C  '  NT  !  NUa 
70  C  OiTlUuc. 

Ir  ItllG-l.O)  d0.100.100 
cw  P-’1..T  bu  i  J  t  ( UR  ID  *  1  •  J)  •  I'LOWM.L  1HM) 
sO  F  t.".'. T(/////«1a«14.5A.12<F6.6.2X>) 

GO  TO  ,0  7 0 

100  IF  (nic-in.0)  110. 130.130 

110  F..1NT  I  20  .  J .  ( Oh  1U  (  1  •  J)  *  1  =  LOwM . L  1MM) 

120  F'*t.MAT  (/////.  IX.  14.5a.  12<F 8. S.2X) ) 

Ci!)  TO  2  7  0 

130  IF  ( 31G-100.0)  140. 160. loo 

140  PRINT  1  bO  .  J.  (<J«  lu  I  1  >  j)  « l=LO*M«L  IHM  ) 

ISO  f‘ " AT  (/////«  1  A.  J4.SA*12(FiJ.4. 2X1  ) 

GO  TO  2/0 

it.;  ( s  1  ij-  1  "00 . 0 >  1/U.19«.1SCi 

1/0  PRINT  1  p.0.  J.  (3-<lu  1 1 .3)  •  1*L0«M»LIMM> 

loO  F,ft4AT  t/////<lX*14*SX«12(Fft.3.2X)) 

to  2/ o 

1  wo  IF  (blu-lOOOC.O)  200.220.220 

200  PRINT  2 1 0 • J • ( 0« 10 ( 1 • J) • 1 =LO«M.L IHM) 
210  FORMAT  (/////« 1  X .  14. Sx •  1 2  (Ftif2«2X|  I 
TO  2  70 

220  I)  (rlTu-lOOOOC.O)  230.2b0.250 
2.0  PRINT  240  •  J.  ( GR  ID  1 1  «  J)  «  l*l-0*M«U  IMM ) 
>*U  F  '..MAT  (/////.  1*.  14. bk.  12<F6.1  >2X)  ) 
G  i  TO  270 

250  ft  -  I’;!  260  *  J*  (  oft  ID  I  1 .  J)  •  1  -LOWH  iL  IHM ) 
2~o  k  -  '/////.  IX.  14, 5X.12(FS.0.2X)) 

2  7 C  C'tNT  IT.l't 
2B0  CGNTINUt 

a-IN'T  ft  4  0  •  i  NLAr.EL  f !  >  •  1*1  «L  IMI ) 

240  F-'.ft  "AT  (/////.l  lA.lftil4.6XI  ) 
if  310.310.300 

300  I.  ... '  =  Lt.F'  •  1  ft 

NF,  «M  =  LU  «M<  1 1 
g.M'.sMINO(MiNApM) 
nsta;p*  .uTpiip.i 
GO  TO  10 


VI-42 


310  HFTURN 

ENO 

SU6R0UT INE  RELAX (GRID. M.N, TOLER) 

C 

C  THIS  SUdHOUTINE  RELAXES  An  M  BT  N  GRID  OF  OATA  POINTS  SO  THAT 

C  LAPLACES  EUUAT ION  IS  SATISFIED  WITH  RESPECT  TO  THE  BQUNOARY 

C  POINT  VALUES  GIVEN.  N  IS  THE  COLUMN  INDEX*  N  IS  THE  ROW  INDEX. 

C 

DIMENSION  GRI 0 ( 30 • 30 ) 

C 

C  FIRST.  INITIALIZE  THE  GRID  BY  LINEAR  APPROXIMATION. 

C 

L IMM=M-I 
L IMN=N-I 
00  20  1=2. LIMM 

0 IFF= (Gk ID (I.NI -GRID! I. IJ I/LIMN 
00  10  J=2.LIMN 

GRI0(I*JI=GRI0(I.I»*IJ-II«0IFF 
10  CONTINUE 
20  CONTINUE 
I TEH= I 
C 

C  FOUR  DIFFERENT  RELAXATION  PATTERNS  ARE  USED  ALTERNATELY. 

C  This  speeos  up  error  prorogation*  and  thereby,  convergence. 

c 

30  LOWM  =  2 
LOWN  =  2 
LIMM  =  M  -  1 
LIMN  =  N  -  I 
INCRM  =  I 
InCRN  =  I 
GO  TO  70 
40  LOWM  =  M-I 
LOWN  ■  2 
LIMM  =  2 
LIMN  «  N-I 
INCRM  =  -I 
INCRN  =  I 

GO  TO  no 

50  LOWM  =  M-I 
LOWN  =  N-I 
LIMM  =  2 

l;mn  *  2 

INCRM  =  -I 
InCRN  =  -I 
GO  TO  70 
60  LOWM  =  2 

LOWN  -  N  -  1 
LIMM  -a  M  -  I 
LIMN  *  2 
INCRM  =  1 
INCRN  *  -I 
GO  TO  110 
C 

C  J  WITHIN  I  RELAXATION  (INOICES  CAN  GO  UP  OR  DOWN) 

C 

70  BIGOIF=0.0 
I=L0WM 
BO  J=LOWN 

91  TESTVAL=GRIU<I.J) 

GwIDU.  J) *0.25*  (GRID!  I»l.J). GRID!  I-I.J) *GRID(I • J«I )  •GRID* I. J-lll 

ChAnGE=ABS(T£STVAL-GRID(I.J) ) 
fa  IGDIF  =  AMAX I  (CHANGE, BICOID 
IF  (J.EU.LIMN)  GO  TO  100 
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J- J.  II.LRN 

go  io  ho 

IGO  If  (I.EU.LlMH)  GO  TO  150 
1=1*1 NGhH 
GO  TO  Mil 
C 

C  I  wlIHlN  J  RELAXATION  (INDICES  CAN  GO  UP  OR  OQBN) 

C 

110  B I  GO  1 F - 0 • 0 
J=L0WN 

iao  1-loxm 

130  Tf 51vAl=GRIO( 1.J1 

&.>II)(!.J)=l>,25«(G»n0<I*l*J)»GR10U-l.JI*GHI0UtJ»ll»GRI0UtJ-l)I 
change -ag-  < test  val-&kid( i.ji i 

H 1  GO  I F  =  AMAX  I ( CHANGE  <B I  GO  IF ) 

IF  (I.EJ.LIMM)  GO  TO  1  AO 
1=1* INLRM 
GO  TO  I  JO 

1H0  IF  tJ.tJ.LHN)  GO  TO  150 
J  =  J»  1NLXN 
GO  TO  120 
C 

c  check  fur  convergence 

c 

ISO  IF  (BIGOIF-TOLER)  170*170*160 

C  IF  NOT  -ITHIN  T OLtSANCE «  REPEAT  RELAXATION  USING  NEXT  PATTERN. 

C 

160  ITE»=ITEh*1 

IF  (1TER.GT.h1  ITERsI 
GO  TO  (30. HO. 50. 601. ITER 

C 

C  OTHERWISE.  RETURN 

170  return 

End 

SUBROUTINE  SWF  I T  (NORD ,M , X. 7.2. A.  IF) 

1  N T E‘>E M  FK.Fj 

DIMENSION  A (SO  KB  <50 1 .F (SOI .X (501.7(50) * 

1  i (SO) .PHI (SO. SO) >BIN(S0.50) 

I F  -0 

UM I N  =  0 • 000 1 
NOP-NORU. 1 
N-NOR* (NOP* 1 ) /2 
DO  EH 0  JS= I , NOP 
DO  2H 0  KS-I.JS 
I =JS* ( J5-  I ) /2*KS 
DO  HO  K=1.M 
«x  =  l  .0 
v  r =  1 .0 

IF  (1-I>  250. BO, 10 
10  IF  (1-3)  20, 30. HO 
20  x  < -t <K  ) 

GD  TO  BO 
30  rr-Y(K) 

&<l  TO  BO 
HO  c k  =  JS-KS 
F  j  =  k  S-  I 

IF  (FK)  60,60.50 
SO  XX  =  MK)»»F  K 
60  IF  (FJI  80,80.70 
70  YY=Y(K)**FJ 
BO  CDNUNjE 
VO  F  IK ) =  XX<*YY 
Ai  I )  =0 . 0 
C  =  0.0 

IF  (1-11  100,100,120 
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ICO  DO  no  J=).M 
IIO  D  =  D«F ( J) #F  <  J) 

3=SQRT  <U) 

GO  TO  200 
120  I M=  J  _ I 

DG  Is  3  I’sl.IM 

T=C  .0 

00  ]',  J=1.M 
130  T=i-r  <J>"PHltJ»KI 
B(K)=T 

00  140  J*1>M 
1411  F<J)=FIJ)-T«PH1(J.«) 

ISO  CONTINUE 

00  160  J* I  «M 
160  D=0*F (J)»F(JI 
D=SORT  <0) 

IF  (O-OHIN)  250 >250 >170 
170  CONTINUE 

00  190  K=I >M 
T  =  0.0 

00  ISO  J  =  K > IM 
ISO  T=T-BIN(K. J)»B(JI 
190  BINIK. I )=T/0 
200  CONTINUE 

H I N ( I > I )=1 .0/0 
DO  210  J*I>M 
210  PM  I ( J» 1 >*F{J)/D 
T  =  0.0 

00  220  K=1.M 
220  T  =  T .PMl  (K.1)«2(K) 

00  230  K*1>1 

2 30  A<K)*A(K|.T»B1N(K.1» 

240  CONTINUE 
RETURN 
250  IF*1 
return 
END 


’’ROGRAM  TUNNEL 


c 

c 


c 


c 


c 

c 

c 

c 


c 


c 


PROGRAM  tunnel 


SEAT  GEOLOGY  F ILE t  CREATE  TUNNEL  FILE 


COMMON  /FPOLE/  XX • YY  *7Z  •  I  I  * JJ.LL 

COMMON  /uEOLFL/  NX. NY.SCALEX, SCALE) . INDEX (25) ,PR0P(6.25> 
COMMON  /NEkPT/  X 1 « Y 1 • l 1 «X2« Y2.Z2.XM. YM * ZM t DL.LSEGNO 
COMMON  /UPARM/  01AM, A0K1G.Y0R1G.UN1T. DELTA 


DIMENSION  CAROIN (S 1 
Data  LUMOL  /O./ 
data  iloont  /0/ 

DATA  ITLAG  /0/ 

DATA  INLND  /0/ 

DATA  lfin  /0/ 

Data  lstll  /0/ 

D A  I  A  SLNGTrl  /0./ 
DATA  LArtDIN  /5«0./ 

DIAM  =  10. 

X0R1G  =  1. 

YORIG  =  1. 

UNIT  =  1. 

DFLTA  =  20. 

lsegno  =  0 

X  1  =0. 

Y 1  =  0. 

71  =  0. 

X?  =  0. 

Y  ?  =  0. 

/P  =  0. 

REWIND  SO 
REWIND  MO 


CALL  RDuEOL 


INITIALIZE 


READ  GEOLOGY  FILE 
READ  PARAMETER  CAROS 


dO 

IF 

(INENU  ,EO.  11  go  to 

300 

RF  AD  100.  IKEY,  (CAROlNU). 

1-1.5) 

100 

FOR 

mAJ  (A6.mX«S(F10.R)) 

l  COUNT  =  ICOUNT  »  1 

IF 

(  Ike  Y  ,£().  6HNEWLEG) 

GO 

TO 

ISO 

IF 

(  I R.E  Y  ,f.O  .  6HST ART  ) 

GO 

TO 

170 

IF 

(  I  kl  Y  . to •  6HEND  1 

GO 

TO 

180 

IF 

(IKEY  ,EO.  6HGPT ION) 

GO 

TO 

150 

Pm  I 

NT  110,  IKEY 

no  FORMAT  (39H0ERROR  -  INVALID  KEYWORD  ON  INPUT  CARD  *A6  > 

GO  TO  MOO 

OPI  ION  CARD  READ 
ISO  I F  llLOUNT  ,EQ.  1)  GO  TO  160 
PmInT  1S5 

1S5  FORMAT  (A7M0ERROR  -  OPTION  CARO*  IF  PRESENT*  MUST  BE  FIRST  ) 

GO  TO  LOO 

160  IF  (LAKDIN(I)  .GT.  0.1  U l AM  *  CARD1NU) 

XOR I G  =  CARO  I N ( 21 
YO'MG  =  CAROIN  (  J 1 

IF  (CAROlNU)  .GT.  0.1  UNIT  =  CARDIN! 4 1 
IF  (LARUlNISl  .OT.  0.1  DELTA  *  CAR01N151 
GO  TO  60 

START  CARD  READ 
170  PRINT  172.  DIAM.XORIO.rORlO.UNIT.DELTA 

172  FORMAT  (26MITUNNEL  OPTIONS  -  OlAN.9A.5MAORiG.llA.5MYORlO.IOA. 

•  AMUN 1 T  »8X . 5HDELT  A/ 17X«F10.3.2A.2(FIA.3*2X)*2(F10»3*2X)// 
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c 

c 


c 

c 

c 


c 


c 

c 

c 


c 


c 

c 


c 


•  SoHOlUNNfcL  FILE  -  POSITION  PROPERTY  1  PROPERTY  2  . 

•  5X •  55HPR0PER T Y  3  PROPERTY  <•  PROPERTY  5  PROPERTY  6i 

•  3X.AHFLAG  /) 

XI  *  CARDIN(l) 

Y 1  =  CARDIN (2 ) 

7]  =  CA!  DIN (3) 

GO  TO  80 

END  CARD  PE AD 

180  INEND  1  1 

NEWLEG  CARD  READ 

190  X?  =  CARDIN ( 1 ) 

Y2  *  CARDIN (2) 

Z 2  =  CAROIN (3) 

LSEGNO  *  LSEGNO  ♦  1 

PROCESS  TUNNEL  LEG  BETMEEN  (Xl.Yl.Zli 
AND  (X2.Y2.Z2) 

XRRK  =  (X2-xl)»<X2-Xl).(Y2-YI>«(Y2-Yl)»<Z2-Zl>'MZ2-Zll 
SLNGTH  =  SORT  (XrRK) 

OL  =  0. 

IF  (LSEGNO  .GT.  1)  GO  TO  2S0 

F1NO  LAYER  OF  BEGINNING  POINT 

XX  =  XI 
YY  =  Yl 
12  =  ZI 
CALL  GETLYR 
LSTLL  =  LL 

EST  POINTS  ALONG  TUNNEL  MIDLINE  IN 
INCREMENTS  OF  DELTA  FT. 

250  OL  =  OL  *  DELTA 

IF  (OL  .GT.  SLNGTM)  OL  *  SLNGTH 

CALL  NEWPNT 

XX  =  XM 

YY  =  YM 

27  *  2 M 

CALL  GETLYR 

IF  (DL  .LT.  SLNGTH)  GO  TO  260 
LFlN  =  LSEGNO 
GO  TO  2/0 

260  IF  (LSTLL  .EQ.  LL )  GO  TO  250 

NEW  LAYER  ENCOUNTERED 

270  DDL  =  DC  •  CUMOL 

LPROP  1  INDEX (LSTLL) 

PRINT  275. ODL.  (PROP ( 1 .LPROP) . 1*1 .6) • IFLAG 
275  FORMAT  ( 11 X  ,7  (F  1<* .<• .  IX )  .2X»  16) 

277  1R0PTE«*PR0P(2. LPROP) 

WR I TE (90.280 )  DDL  .PROP  (1  .LPROP).  IROPTEN.  (PROP  U. LPROP).  10*6).  1FLA 
1G 

280  FORMAT (2£ 18.10. 15. AC  18. 10. 15) 

IF  (ODL  .LT.  0.)  GO  TO  310 
LSTLL  *  LL 

IF  (LFIN  .LT.  LSEGNO)  GO  TO  250 

ENO  OF  TUNNEL  SEGMENT  HAS  BEEN  RCACHCO 

XI  »  X2 
Yl  «  Y2 
ZI  «  Z2 

CUMOL  *  CUMOL  *  OL 
GO  TO  80 

END  OF  JOB 

300  ODL  *  -100. 

GO  TO  277 
310  PRINT  320 

320  FORMAT  (27H0TUNNEL  TERMINATED  NORMALLY  ) 
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4JU  CALL  LA  11 
£ ;  <0 

SUHPOJ T 1  N£  oETLYR 


C 

C 

c 

c 


c 


120 

C 


C 


C 


C 

C 


C 


c 

24  0 


C 

260 


C 

C 

310 


PURPOSE  -  FIND  LAYER  IlU  IN  WhlCM  THE  POINT 
UX.TY.22l  li  LOCATEO 

COMMON  2FP0LE2  XX , YY . 22 . 1 1 . J J.lL 

COMMON  XGEulFLX  NX.NY.SCAlEX.SCALEY.I NOEX 1 25) .PROP (6.25) 
COMMON  2UPARM2  01AM.X0R10.Y0R1G.UN1T. DELTA 
common  XZSAvEX  25  TDK  < 30 • 30 .25) «LFL AG (25) 

DIMENSION  2m0LD(25) 

DATA  ZMuLO  225*0./ 

OATA  LHULO  202 

LROLO  =  0 
00  120  J  =  I .25 
2M0L0IJ)  =  -10. 0  £51 
CONTINUE 

FIND  1  INTERVAL  FOR  XX 
XCOOW  =  1  *  (XX-XOR1G)  2  (SCALEX*UN IT) 

I uCW  =  XCOOR 
1 H 1  =  I  LOW  .  1 

FlNO  J  INTERVAL  FOR  YY 
YCOOR  =  1  ♦  (YY  -YOR1G)  2  (SCAlEY  •  UNIT) 

JLO*  =  YCOOR 
JHl  =  JLOW  »  1 

SEE  IF  POINT  IS  OUTSIDE  I  J  GRID 


IF 

(ILOW 

•  LT, 

.  I) 

GO 

TO 

TOO 

IF 

(1M1  , 

.GT. 

NX) 

GO 

TO 

730 

IF 

(JLOW 

•  LT. 

.  11 

GO 

TO 

750 

IF 

(JMl  , 

.GT. 

NY) 

GO 

TO 

760 

EXAMINE  THE  4  (I.J)  POLES  SURROUNDING 
■'  (XX.YY.22)  FOR  LAYER ( S)  INVOLVEO 

II  =  lLGw 
JJ  =  JLO* 

C’-LL  FINUL 
LHOLO  =  LL 

JJ  =  JMl 
CAlL  F1NOL 

IF  (LM')l ')  -  t LI  310,240.310 
II  =  I  mi  1 

call  findl 

IF  (LMOLO  -  LL)  3I0.26U.310 

JJ  =  JLuW 
CALL  fin&l 

IF  (LMOLO  -  LL)  310.950.310 

INTERPOLATION  REQUIRED 

XA  =  ILU» 

YA  =  JLOW 
XH  =  I  -  I 
Y  H  =  JLmW 
xrl  :  1L0W 
XC  *  X LOUR 
YC  =  JMl 
DO  500  J-I.25 

If  (LfLAOIJI  .EO.  0)  OU  TO  500 
L  yR  *  J 

2A  =  25 TOR  ( ILOW. JLOw.lYR) 

2h  =  ZSIOPIIMI. JLOW.LYR) 

2C I  *  Z5TOhUlOW.JMI.liKI 
ZC?  1  23T0R  (1M1.JMI.LYR) 
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FIND  POINT  ON  L INC  BElwLEN  ( ILOW . JH I . ZC I ) 
AND  (1HI.JHI.ZC2)  WHICH  IS  AT  XX 
ZC  =  (XLOOR  -  XCI)  •  (ZC2  -  ZCI)  ♦  ZC1 

DERIVE  EUUATION  OF  PLANE  DEFINED  BY 
(X  A  *  YA  «  ZA ) . (XB.YB.ZB) . (XC.YC.ZC) 

A  =  YA*ZB.YC»ZA.YB<>ZC-YC«ZB-Y«»ZA-YA»ZC 
B  =  7A#AB.ZC#XA.ZB#XC-ZC#XB*ZB*XA-ZA*XC 
C  =  XA»YB.XC»YA*XB*YC-XC«YB-XB*YA-XA«YC 

D  =  XA* YB»ZC«YA#ZB#XC.ZA*XB*YC-ZA#YB#XC“YA»XB#ZC“XA*ZB*YC 
STORE  Z  FOB  PLANE  AT  POINT  IXX.YY) 
ZhOLD(J)  =  D  -  8* YCOOM  -  A«XCOOR  /  C 
500  CONTINUE 

FIND  LOWEST  ZHOLDU)  S.T.  ZHOLD(J)  OT  ZZ 

SIO  ZLOW  =  999909. 

LL  =  0 

DO  550  J=1.25 

IF  (LFLAO(J)  .EO.  0)  GO  TO  550 
TFSTZ  =  ZHOLDU) 

IF  (TESIZ  .LT.  ZZ)  GO  TF  550 
I)  (TESIZ  .GT.  ZLOW)  Do  TO  550 
/LOW  =  IES1Z 
LI  =  J 

5S0  CONTINUE 

IF  (LL  .GT.  0)  GO  TO  950 
PRINT  570.  XX.YY.ZZ 

570  FORMAT  (04H0ERROR  -  NO  LAYCft  FOUND  FOR  POINT  .3IFI4.3.IX)  ) 

GO  TO  900 


C 

C 

C 

C 


c 


c 


c 


c 


& 


POINT  WEST  OF  GRID 

700  II  -  1 

702  IF  (JHl  .GT.  NY)  GO  TO  740 
IF  (JLOW  .LT.  1)  GO  TO  745 
JJ  =  JLOW 

CALL  findl 
LhCLD  «  LL 
JJ  =  JMl 
CALL  FINOL 

IF  (LL  -EQ.  LHOLO)  GO  TO  950 
DO  705  J=1.25 

IF  (LFLAG(J)  .EQ.  0)  GO  TO  705 
ZCI  =  ZSTOH(II.JLOW.J) 

ZC2  =  ZSTOH ( 1 1 . JHl . J) 

ZHOLD(J)  =  ( YCOOR  -  JLOW)  •  (ZC2-ZCI)  ♦  ZCI 


70S 

CONTINUE 

GO 

TO  510 

POINT 

EAST  OF  GRID 

730 

II 

=  NX 

GO 

TO  702 

POINT 

NW  OR  NE  OF  GRID 

740 

JJ 

=  NY 

GO 

TO  790 

POINT 

SW  OR  SE  OF  GRID 

745 

JJ 

=  I 

GO 

TO  790 

POINT 

SOUTH  OF  GRID 

750 

JJ 

=  I 

752 

IF 

( I H I  .GT.  NX) 

GO 

TO 

770 

IF 

(ILOW  .LT.  I) 

GO 

TO 

775 

11 

=  ILOW 

CALL  FINDL 
LHOLO  *  LL 
II  *  I  HI 
CALL  FINDL 

IF  (LL  .EO.  LHOLO)  GO  TO  950 
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Oil  /to  J-1.25 

If  ILf  LAG  I J)  .EU.  0)  GO  TO  7SS 
7CI  =  ZSTOR<IlUW.JJ.J) 

ZC2  -  ZGTORI  iHl.JJ.J) 

/HOLD ( J )  =  (XCOOR  -  1  LOW 1  •  (ZC2  -  ZC1  ) 
755  CONTINUE 
GO  TO  510 

760  JJ  =  NY 
GO  TO  752 

770  II  =  NX 
GO  TO  790 

775  11=1 
790  CALL  FINOL 
GO  TO  950 


20 


POINT  NORTH  OF  GRID 


POINT  NE  OF  GRID 


POINT  NW  OF  GRID 


I 

! 

I 


900  CONTINUt 
CALL  EXIT 

950  continue 
return 
eno 

SUBROUTINE  NEwPNT 

purpose  -  given  Endpoints  (xi.yi.zd  and  ix2.y2.z2i  of  line* 

FIND  (XM.YM.2M)  WHICH  IS  OL  FT.  FROM  (XI.YI.ZD  ON  LINE 
TECHNIOUE-ExPRESS  YM  ANU  ZM  IN  TERMS  OF  XH.  USING  2-POINT  FORM 
OF  STRAIGHT-LINE  eouation. 

SUBSTITUTE  in  FORMULA  for  DISTANCE  BETWEEN  2  POINTS* 
(Xl.ri./ll  AND  <XM.YM=FIAM> ./M=G(XM) ) . 

AND  SOLVE  FOR  XM. 

RECUNSTKUCT  YM  ANO  ZM  FROM  XM. 

SPECIAL  CASES  EXIST  IF  XDIF*YDIF,  OR  ZD1F  ARE  ZERO. 

Thus  REDUCING  problem  TO  1  OR  2  DIMENSIONS. 

NOTE  -  IF  OL  IS  GT  LENGTH  Of  SEGMENT.  ROUTINE  WILL  ABORT. 

COMMON  /NE wp T /  X1.Y1.Z1.X2.Y2. Z2.XM. YM.ZM.DL *L SEGNO 
OATA  LSTSEG  /0/ 

Data  mluue  / o / 

DATA  IbRNCH  /0/ 

OATA  XOIF.YDIF.ZOIF. A, B. It. T2  /7»0./ 

NRGOT  =  0 
X  *•'  =  0. 

YM  I  0. 

Zm  i  0 . 

IF  (LSEuNO  .EO.  LSTSEG)  GO  TO  JO 


I 


MfODE  =  0 
XHIF  =  X2  -  x 1 

YDIF  =  r2  -  rl 

ZPIF  -  U  -  l\ 


INITIALIZE  FOR  NEW  LINE  SEGMENT 


IF 

(XDIF 

.EO.  0.) 

MCOOE  = 

1 

IF 

(YD  IF 

.EO.  0.) 

MCUUE  = 

MCOOE  ♦ 

10 

IF 

•  •< 

(ZOIf 

.Eg.  o.i 

MCOOE  =  MCOOE  ♦  100 

BRANCH  ACCORDING 

IF 

(MlOuE 

•  EO.  0 

)  GO  TO 

BO 

If 

(MlOuE 

•  fc  U •  11 

I  GO  TO 

COO 

IF 

(MLOOE 

.EO.  101)  GO  TU 

625 

IF 

(MlCIUl 

•EO.  110)  GO  TO 

6S0 

IF 

(MLOUE 

.EO.  1 

)  GC  TO 

675 

i! 


VI-50 


Is 
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IF  (MUDE  .EO.  10  )  00  10  700 
IF  ( MCOOE  .EO.  100)  GO  10  735 
PRINT  50 

50  FORMAT  (28H0ERR0R  -  ENOPOINTS  IDENTICAL) 
GO  TO  880 


NORMAL  CASE  (XDIF.YOIF .ZOIF  NON-ZERO) 


C 


C 


C 

C 

C 


C 


C 


C 


C 

C 

C 

C 


C 


80  1HHNCH  =  1 

IF  (L5EGN0  .EO.  LSTSEG)  GO  TO  110 

SET  UP  COEFFICIENTS  OF  QUAORATIC  EOUATION 
A  =  1 .♦  (YD1F  •  YD1F  •  ZOlF  •  Z01F)  /  (XOIF  •  XOIF) 

B  »  -2.  •  A  •  XI 
T 1  =  XI 

TP  =  X2 

GO  TO  ) 0 0 

RECONSTRUCT  YM  ANO  ZM 

90  XM  =  HT 

XFRAL  =  (XM  -  XI)  /  XOIF 
YM  =  Yl  ♦  ( YD  IF  •  XFHAC) 

ZM  =  Z1  ♦  (ZDIF  •  XFRAC) 

GO  TO  750 


SOLVE  OUADRATIC  EOUATION 

100  IF  (A  .tO.  0.1  GO  TO  A50 

110  APG  =  A.  •  A  •  DL  •  OL 

TEST  FOR  EXISTENCE  OF  REAL  ROOT(S) 

IF  (ARG  .GE.  0.)  GO  TO  300 
PPINT  POO.  A.U.ARG 

POO  FORMAT  (J6HOEHROR  -  ARG  IN  NEWPNT  NEGATIVE.  A*  .FIA.3.AH  B*  • 

•  F1A.3.6H  ARG  =  «F 1A.3) 

GO  TD  880 

FIND  ROOTS  OF  OUADRATIC 

300  ARGP  *  SORT (ARG) 
den  =  2.  •  A 

IF  (DEN  .EO.  0.  ) GO  TO  M50 
RT  =  (-8  ♦  ARGR)  /  DEN 

SELECT  ROOT  ON  GIVEN  SEGMENT  OF  LINE 

AGO  IF  ( T I  .LE.  RT  .AND.  RT  .LE.  T2)  GO  TO  SOO 
IF  (TP  .LE.  RT  .AND.  RT  .LE.  TI)  GO  TO  SOO 
NROOT  =  NRDOT  ♦  1 
IF  (NROOT  .Ed.  2)  GO  TO  A50 
RT  =  (-8  -  ARGR)  /  DEN 
GO  TO  AOO 

*.50  PPlNT  A/0,  A,  B.  ARG 

A70  FORMAT  ( 51 HOERRDH  -  NEaPNT  FOUNO  NO  ROOT  ON  GIVEN  SEGMENT.  A*  • 

•  FI  A. 3, AH  8=  . F 1 A • 3 . 6H  ARG*  »FlA,3) 

GO  TO  880 

500  GD  TO  (  90.680.705.730) .1BRNCM 


SPECIAL  CASES 
XOIF  ANO  YO IF  ARE  ZERO 

600  YM  =  Yl 
XM  =  X  l 

IF  (ZDIF)  610. 60S. 605 
605  ZM  =  Z1  ♦  OL 
GO  TO  750 
610  ZM  =  Zl-DL 
GO  TO  750 

XOIF  ANO  ZOIF  ARE  ZERO 

625  X.  *  XI 
ZM  *  Zl 

IF  (YD1F)  635.630.630 
630  YM  =  Yl  ♦  Dl 
GO  TO  750 
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c 


YOIF  ANO  ZD  IF  ARE  ZERO 


6JS  Y*l  =  Yl  -  UL 
GO  TO  /GO 

6SO  ym  a  Yl 
Z'<  =  21 

IF  (XL'IH  660  *655*655 
655  xm  a  XI  ♦  Ol 
GO  TO  /GO 
660  AM  =  A1  -  OL 
GO  TO  '/GO 

C  ONLY  XOIF  IS  ZERO 

675  IFiRnCH  *  2 

IK  (LSTGEG  .EO,  LSEGNO)  GO  TO  110 
A  *  1 . ♦  <y0|F*Y0IF)/(ZD1F#ZD1F) 

678  h  =  -2 • *A  »Zl 
T  1  =  21 
T?  a  22 
GO  TO  100 
680  X*  a  XI 
ZM  a  HI 

YM  *  Y 1  ♦  <ZM  -  Z 1)  •  YOIF  /  ZD1F 
GO  TO  7G0 

C  ONLY  YOIF  IS  ZERO 

700  1»R»CH  *  3 

IF  (LSTSEG  .EO.  LSEGNO)  GO  TO  110 
A  a  >.♦  <X0IF»X0IF)/1ZDIF»Z0IF> 

GO  TO  6/8 
70S  YM  a  Yl 

=  XI  ♦  (ZM-ZI)  •  XD1F/Z01F 

GO  TO  7G0 

C  ONLY  ZD  IF  IS  ZERO 

725  INRMLrl  =  k 

IF  ILSEjNO  .EO.  LSTSEG)  GO  TO  110 
A  a  l.  ♦  (YDIF»Y01F)  /  (X0!F*AD1F) 

8  a  -2  •  A  •  XI 
T  1  a  xl 
T?  *  A2 
GO  TO  1 U 0 
730  /»  >  II 
X'<  a  RT 

YM  a  Yl  •  (XM-X1)  •  YOIF/XOIF 

C  . . . . . . . . . 

c  CHECK  RANGE  OF  RESULTING  POINT 

750  IF  (XI  .LE.  XH  .ANO.  XM  .LE.  X2)  GO  TO  760 

IF  (X2  .LE.  XM  .ANO.  XM  .LE.  XI)  GO  TO  760 

GO  TO  BgO 

760  IF  (Yl  .LE.  YM  .ANO.YM  .LE.  Y2)  GO  70  770 
IF  ( Y2  .LE.  YM  .ANO.YH  .LE.  Yl)  GO  TO  770 
GO  TO  65 J 

770  IF  (21  .LE.  ZM  .AND.  ZM  .Lt .  Z2)  GO  TO  999 

IF  (22  .LE.  ZM  .AND.  ZM  .LE.  Zl)  GO  TO  999 


HGO  PRINT  6/0.  XM.YM.2M 

870  FORMAT  ( soriOExHOR  -  POINT  GIVEN  BY  NERPNT  NOT  ON  LINE.  XM«  • 
*  FIA.J.GH  YM®  »F  1<*.  3.5M  ZM*  .FIR. 3) 

680  CALL  EXIT 
999  LSTSEG  =  LSEGNO 
RE  TURN 
END 

SUBROUTINE  ROGEOL 
C 

C  ENTRY  RuGEOL  READS  AND  SCORES  ALL  GEOLOGY  FILE  DATA 
C 

C  ENTRY  FINOL  OETERM1NES  GHAT  LAYER  ILL)  INCLUDES  POSITION  ZZ 
C  AT  POLE  (ll.JJ) 
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COMMON  /FPOLE/  XX • YY t ZZ. 1 1  * JJ.LL 

COMMON  /GEOLFL/  NX. NY , SCALEX . SCALEY . INDEX (25) .PROP (6*25) 
COMMON  /ZSAVE/  ZSTOR  <30 .30.25) ,LFLAG<25> 

C 

DIMENSION  HOLD  <27 ) 

C 

DO  30  I  =  1.25 
LFLAOII)  =  0 
30  CONTINUE 

head  <50.60)  NX. NY, SCALEX, SCALEY. <1NDEX<ILAYR)*ILAYR»1*25>* 
•  ( IPKOPl I . I  MOCK) . 1  =  1 *6) . I  ROCK® 1,25) 

60  FORMAT  1 2 1 5 .2 <E 1 8. 1 0 ) . 2512. <E18. 1 0) > 

LIM  z  NX  •  NY 

DO  200  K  =  1  .LIM 

READ  (50.80)  (MOLD  <L ) .L-1.27) 

80  FORMAT  <<E18.10)) 

I  =  HOLUII) 

J  =  H0L0<2) 

DO  150  IZ  =  1.25 
ZSTOR(l.J.lZ)  *  H0L0<1Z*2) 

150  CONTINUE 

IE  l*  .vjT.  1)  GO  TO  200 
DO  170  1Y  *  1.25 

IF  ( HOLU ( 1 Y*2 )  .GT.  -10.0  ESI)  LFLAG(IY)  ■  1 
170  CONTINUE 
200  CONTINUE 
RETURN 


FIND  LOWEST  HOLDZ(K)  FOR  WHICH 
HOLOZ(K)  GE  ZZ 

ZLOW  =  999999. 

LL  =  0 

600  DO  700  K  =»  1,25 

IF  (LFLAG(K)  ,EO.  0)  GO  TO  700 
TEST Z  =  ZSTOR  (1I.JJ.K) 

IF  < TESTZ  .LT.  ZZ)  GO  TO  700 
IF  (TESTZ  .GT.  ZLOW)  GO  TO  700 
/LOW  =  TESTZ 
LL  =  K 

700  CONTINUE 

IF  (LL  .GT.  0)  GO  TO  800 
PRINT  720.  XX, YY .ZZ 

720  FORMAT  ( I AMOEMMOM  -  POINT  ,3<F14.3.2X) .I2HAB0VE  GROUND) 
CALL  EXIT 
800  LSTII  =  II 
LSTJJ  *  JJ 
RETURN 
END 
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C.  PR'VSPA’f  GENTNL 


PROGRAM  GENTNL 
C 

C  This  PROGRAM  GENERATES  a  TUNNEL  FILE  USING  CARO  INPUT  ONLY* 
C  BYPASSING  GEOLOGY  FILE  REQUIREMENT 

C 

DIMENSION  CO (6) 

DATA  OPOS  /-I0./ 

C 

REMIND  AO 
P*1NT  4005 


LOOS  FORMAT  I///.20X.33H  GEOLOGY  PARAMETERS  FOR  TUNNEL  ) 

PRINT  4006 

4006  FORMAT  < //»5X. I  OSH  THIS  GEOLOGY  UNCGNFINEO  ABRASIVENESS  ROC 

ik  duality  in  situ  ambient  mater  inflom  i 

PRINT  4U07 

4007  format (2A.I05H  CEASES  AT (FEET)  COMPRESSIVE  OES 

I  IGNAT  ION  TEMPERATURE  RATE  ) 


PRINT  4006 

4006  FORMAT (5X.105H  STRENGTHtPSI ) 

I  <LH/FT«3)  (FT)  (GAL/MIN) 

1  ) 

C 

100  REAO  )I0.  (CO ( I ) • Is! .8) 

110  FORMAT  (dFIO.4) 

CO<2)=CU(2>/1000. 

IF  (COU)  .LT.  0.  .OR.  CO ( 1 )  .GT.  OPOS)  GO  TO  140 
PRINT  120.  CO ( 1 J 

120  FORMAT  (34H0ERROR  -  CARO  SPECIFYING  POSITION  .FI0.4. 

•  IbH  OUT  OF  SEQUENCE) 

call  EXIT 
C 

140  IFLAG  *  CO (8) 
li=C0(3> 

OPOS  *  CO  < 1 1 

MO  I TE  (40. 210)  (COO)  .Is  1.2).  1A.  (CO  (J)  .J-4.7)  » IFLAG 
210  FoRmAT<2EI8.1G,IS.4EI8.10.15) 
ir  ( CD ( 1 )  .LT.  0.)  GO  TO  VOO 
PRINT  260.  (COU).  1-1.7).  IFLAG 
250  FORMAT  (  3X.7 (F 14,4. IX) . 2X . 14 ) 

GO  TO  100 
C 

900  POINT  910 

910  FORMAT  (43H0TUNNEL  FILE  GENERATION  TERMINATED  NORMALLY  1 
REWINO  40 
CALL  EXIT 
END 
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PROGRAM  CONTROL 


GOLETA  FORTRAN  1.3  •  AUTO  RfL  •  (07-12-72) 


07/25/72 


000003 


000003 

000003 

000003 

000003 


000003 

000003 

000003 

000003 

000003 

000003 


000003 

000003 

000003 

000003 

000003 

000003 

000093 

000003 

000003 

000003 


PROGRAM  CONTPL 

COMMON  /WHEELS/  AF. AF. AM*X , AMAXL , AM INL .BSL .CARCAP ,CP .OF .OF ,OT AS 
It  OTMAtOTUtFLtFCtFRtFT .HP  A .HPEA .HPEV.HPFA.HPFV.HPV.LOCO .MC.ML 
2t  NCAPS.NOOTNT.NTO.NTM.NTMAX.XP.NTMILP.NTMLPP.NTBACK.SL 
3 1  TCURVX (?0t  ,TCURVY(20).TMAINT.TNE.VO.VS.VE.VF,VMAX,WC.WL.XOS 
At  MAXLD.NUMI.O.LOUE.QUC,  WUC  t  STATUS  ( 36)  .WHY  (24)  t ML TYP , WMR.ECONEQ, 

5  EC0N55 1 ELOCO t  EMUCKCt ETRACK  t ESN  ITC  t  EUNLOA tERMA INt 1 1 BORE  * 

6  ISWI2S) .NTINIT.TCCV.TMCV 

COMMON  /OLOCOM/  IFILO.KSTOP < 25 > • KUNLO .LSTOP.L VEHCL .NBYBY.NSWCH 
It  NTROA.NVFMCL.NIIHSWT.  SWITCH  (20)  .TFC ( 25) , TOP (25) , TSTAT (25. A) 

2t  UTIMEI25) .LOAORtMUKOT  .XGS. lEXCA.MGS(S) .MCV.MFLAGC.OUMMY (20) 
COMMON  /NENCOM/  L I FILO tLKSTOP ( 2S) tLKUNLO tLLSTOP .LLVHCL .LNBYBY 
It  LNSWCH.LNTROA .LNVHCL .LNMSWT  tFSNTCH(20) t FTFC ( 25 ) t FTOP ( 25) 

2t  FTSTAT(25.A),FUTIME(25) t LLOAOR  tLMUNOT  .FXGS.L IEXCA ,LMGS (5) 

3 1  LMCVt LMFL  AC  t FOUMNY (19) 

DIMENSION  C0M9L0 (260l«C0MNFWf260)»LTSTAT(25.A),ITSTAT(?5.A) 
EQUIVALENCE  (NVEHCL  tNTRAIN tNTRUCK) t  (LVEHCLtLTRAINtLTRUCK) 

It  (COMOLOtlFILO) t (COMNENtLIFILOtIFILLO) t (NTOAtLNTROA) 


2t  (FTSTAT.LTSTAT). < TSTAT. 1 TSTAT) 

3t  (LLVHCLtLI  TRANtLLTRUK), (LNVHCL .LNTRAN.LNTRUK) 

COMMON  /BORING/  CL ( 3 ) t CPC t OTA t OTC tOTCOtOTOt OTMtKK t PBM t R { 100) tRC 
Af  RPM.TR.XCPCt  MASSEMtMBM  iMBORE  .MCI).MOISA5»LNCHNG.LNCUTR,NCUT(20) 
Bt  NEAR ( 1 00 ) t EBORFQt ETRAN5 

COMMON  /BLAST  /  ADBtAOHtAHtCBIT tCBURNtCCAPtCEXtCM tCPLtCSTEEL 
Bt  LOtLOB.LBI TtLBURN.LSTEEL  t  MENt NO tNORiNHtNHR.PF tPOBtPOOt TCHG 
Ct  TIN. TOUT, TYPEPFtNPL t JUMINt JUMOUTtNORILBtNORILL 
COMMON  /CONVEY/  ACM,OTBS«ONM.EE,FL,HP.OC.SMIN.NBI 
It  WO,XLF»N<UR0F,0Ft0o»SM,nTC°tPTM«t AR,VO! .NFXRN.NGEO • XF .LN5URG • 


?  STIMF,on«o,nTMi,OT«0,FLM 
LUMMUN  /ALL  /  X  I , 5  I K, I A t RQOt CS, TAM8 tFLON, IFL AG 

1,  AT.O.E.SK.T.OT.X.PP.XMAX.TMAX.OX.OV.TPRINT .OTPRNT . IMOVEt JMETM 

2,  TSHFT.  REPORT. OPPCT. TO. X0.X0I5CM.ICHNG.XCHNG.TCMNG 
EOUIVALENCE  (JMOVF.IMOVE). (IMETH. JMETM) 

COMMON/MONEY/  JMMHM,OJ“*OJHMH,OJMROtOJMBMM,OMAINT tOJMBM.OJMGS 

1 ,  PMGS. JMCV.OJMEC.ROPLANtHPLANTtGSPLAN 

2,  ECPL AN.ROT IME.MT IME ( 2) , GST  IMF  tECTIME 

COMMON/PERFRM/  R0UTIM,R00TIM,UMHTIM,0MHTIM,65UTIM,GS0TIM,ECUTIM 
It  ECOTIM.GOAY  tGAOVtGENOtGBEG 

COMMON/LABOR/  ROMEN (10,?), HMEN( 1 0. ?t 2) tGSMEN (10.2) .ECMENI 1 0.2) 


REAL  JMMHMtLO.LOB.LBIT.LBURNtLSTEEL.JMCV 
DIMENSION  GIB) 

EOUIVALENCE  (G.XT) t(XE.XOE) , (PR. PC) 

COMMON  /GRNO/  PSST (60. R) .M A XPSST ,  UCS tUCSC .RATERB.RATESC .HATES? 
1.  GSLOS. I  AS, I  ST , ERROR  I tESCPL A , GOONtGSETOO.M AXPSS 


COMMON  /ENVC/  MAXMENtTOTHP,OM,QO,VAMIN»VAMAX,(JO(  10)  , 


I  TA,TO.NA,F<O.FKT,CPA,CKA.RFFRAT.AMC(IO).OOR.EVFNTP.CP|IMP 
blMENSION  JST0PI25) 

EOUIVALENCE  (JSTOP.LKSTOP) 

DATA  (STATUS=6HST0PPE.6H0.  EMP.2HTY.  6MST0PPE. 6HD.  FUL.IHLt 

1  6MACCEL , . 6H  EMPTY. 1H  .  6HACCEL..5H  FULL.IH  .  6HFULL  S*6HPEE0»  » 

2  SHEMPTY.  6HFULL  S.  6HPECD,  .  AHFULL*  6H0ECEL* .5HEMPTY,  IN  , 

3  6H0FCEL..5H  FULL*  1H  ,  6HIN  SNlt  6HTCH,  Et  AHMPTY* 

*  6H1N  SNI.6HTCH,  F.3HULL.  6H1N  DIS,6HCHARGE«5H  AREA*  6H1N  MAI. 

6  6HNTENAN.2HCE) 

7,  (WHY-6HAT  F AC.6HE*  LOA. AH01NG.  6MTRAIN  .SHAHEAO. 1H  . 


contrl 

2 

wheels 

2 

wheels 

3 

wheels 

A 

wheels 

S 

wheels 

6 

wheels 

7 

wheels 

S 

wheels 

9 

wheels 

10 

WHEFLS 

II 

WHEELS 

12 

wheels 

13 

WHEELS 

1A 

WHEELS 

15 

WlfFELS 

16 

WHEELS 

17 

WHEELS 

IB 

wheels 

19 

WHEELS 

20 

BORING 

2 

BORING 

3 

BORING 

A 

BLAST 

2 

BLAST 

3 

BLAST 

A 

BELTS 

2 

ALL 

2 

ALL 

3 

ALL 

A 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

S 

ALL 

9 

all 

10 

ALL 

II 

ALL 

12 

ALL 

13 

ALL 

1A 

SUPPORT 

2 

SUPPORT 

3 

ENVIRON 

2 

ENVIRON 

3 

CONTRL 

10 

CONTRL 

11 

CONTRL 

12 

CONTRL 

13 

CONTRL 

1A 

CONTRL 

15 

CONTP’ 

16 

CON  i  HL 

17 

CONTRL 

IB 
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GOLETA 

FORTRAN  1.3  •  AUTO  RFL  •  <07 

-l?-7?)  CONTRL 

07/35/7? 

8  6HTRA1N  .6HC0HING. 

IN  .  6HE*TERN.6HAL  REA.4HS0NS. 

CONTRL 

19 

9  6HWA I T IN *6h0  TO  U. 

5HNL0AD.  6HWAITIN.6HG  TO  L.3H0A0. 

CONTRL 

?0 

A  6HAT  F AC.6HE.  IN  • 

5H0UEUE.  3*6H, ,,.,,) 

CONTRL 

?I 

000003 

OATA  (C0STS=30*0.) * <0**0. ) . <OV«0. 1 . <LOAOR*0 . 1 • <MB0RE*0> * (NBM*0 ) 

CONTRL 

?? 

1 .  (LNCUTR*0>  « (RATNAXaOl * (IDLE»0) • <NOTIOL*OI 

CONTRL 

?3 

000003 

OATA  INIX/O/ 

CONTRL 

?4 

c*» 

CONTRL 

35 

c 

CONTRL 

?6 

C  INITIALIZATION  ONLY 

CONTRL 

?7 

C 

CONTRL 

28 

C«» 

CONTRL 

?9 

000003 

CALL  INPUT 

CONTRL 

30 

cocao* 

call  ROPE 

CONTRL 

31 

000005 

CALL  rilTTFR 

CONTRL 

3? 

000006 

CALL  REPAIR 

CONTRL 

33 

000007 

CALL  CVLOAO 

CONTRL 

34 

000010 

CALL  CVMNT 

CONTRL 

35 

000011 

CALL  RAILHL 

CONTRL 

36 

ooooi? 

CALL  RARE* 

CONTRL 

37 

0  C  30 1 3 

CALL  RARDS 

CONTRL 

38 

00C014 

CALL  RAILMT 

CONTRL 

39 

000015 

CALL  GRN5UP 

CONTRL 

40 

C  COO  16 

CALL  G5MAIN 

CONTRL 

41 

000017 

CALL  ENY1R 

CONTRL 

4? 

OCOO’O 

CALL  RFPORR 

CONTRL 

43 

0000?’ 

CALL  HA* ADV 

CONTRL 

44 

0300?? 

CALL  RFPORC 

CONTRL 

45 

003033 

CALL  INPUT? 

CONTRL 

46 

0003?i 

DO  310  11=1. ?60 

CONTRL 

47 

C  30036 

COMNFWIIIlrCOHOLDUI) 

CONTRL 

48 

000030 

310  CONTINUE 

CONTRL 

49 

c**. 

CONTRL 

50 

00003? 

PRINT  410 

CONTRL 

51 

000036 

410  FJ’HAT  ( 1  Hi  1 

CONTRL 

5? 

000036 

TPRINT-T.OTPRNT 

CONTRL 

53 

000040 

CALL  OUTPUT 

CONTRL 

54 

000041 

400  CONTINUE 

CONTRL 

55 

c*** 

CONTRL 

56 

C 

CONTRL 

57 

C  START  LOOP  ON  nT 

CONTPL 

58 

C 

CONTRL 

59 

CONTRL 

60 

0C00-.1 

401  XTEMPsX-XOISCM 

CONTRL 

61 

000043 

IF  < XTEMP  .LE.  XT)  GO 

TO  405 

CONTRL 

6? 

C»»» 

CONTRL 

63 

C 

CONTRL 

64 

C  READ  NEW  GEOLOGY 

CONTRL 

65 

C 

CONTRL 

66 

c*** 

CONTRL 

67 

000046 

RE  AD (40.40?)  G 

CONTRL 

66 

000053 

ICHNGM 

CONTRL 

69 

000054 

TCHNG=(I-T0)/?4. 

CONTRL 

70 

C00057 

XCHNOnX-XDlSCH 

CONTRL 

71 

000C61 

IF (EOF .40)  600.404 

CONTRL 

7? 

OOOf  .4 

40?  FORMAT (?E1 6.1 0.I5.4EI8.I0. 15) 

CONTRL 

73 
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COLE T A 
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CONTRL 

07/25/72 

00006 4 

404  GO  TO  401 

CONTPL 

74 

C«»» 

CONTRt. 

75 

c 

CONTRL 

76 

c  rock  disintegration 

CONTRL 

77 

c 

CONTRL 

78 

c*** 

CONTRL 

79 

000065 

405  CONTINUE 

CONTRL 

80 

000065 

420  CALL  RORER 

CONTRL 

81 

000066 

CALL  MA1NT 

CONTRL 

82 

00 }067 

CALL  CUTChG 

CONTRL 

83 

000070 

CALL  RAlLTR 

CONTRL 

84 

000071 

406  CALL  R *  1  LOS 

CONTRL 

85 

000072 

CALL  RA1LXT 

CONTRL 

86 

000073 

CALL  RA1LHT 

CONTRL 

87 

000074 

CALL  LOAOCV 

CONTRL 

88 

000075 

CALL  CVRPR 

CONTRL 

89 

000076 

CALL  GROUN 

CONTRL 

90 

000077 

CALL  gs«nt 

CONTRL 

91 

000100 

CALL  ENV IRC 

CONTRL 

92 

C»« 

CONTRL 

93 

C 

CONTRL 

94 

C  UPDATING  A.T,  ANO  FLAGS 

CONTRL 

95 

C 

CONTRL 

96 

C»» 

CONTRL 

97 

000101 

T*T  «0T 

CONTRL 

98 

000103 

A*A«D> 

CONTRL 

99 

000105 

00  446  1I=1.?60 

CONTRL 

too 

000107 

COMOLnClUCOMNEtfUI) 

CONTRL 

101 

000111 

446  CONTINUE 

CONTRL 

102 

000113 

IF  (NflM.EO.O)  GOTO  4B0 

CONTRL 

103 

000114 

mrorem 

CONTRL 

104 

000115 

GOTO  49? 

CONTRL 

105 

0001 16 

460  IF  (xno’E.FO.l)  MRORE*0 

CONTRL 

106 

0001 21 

IF  (LNGUTR.EO.OI  GOTO  482 

CONTRL 

107 

000122 

MBORE=? 

CONTRL 

108 

000123 

GOTO  4R2 

CONTRL 

109 

000124 

482  IF  (MOORE. EO. 2)  MBOREO 

CONTRL 

iio 

000127 

IF  (NRYPT.EO.OI  GOTO  484 

CONTRL 

111 

000130 

NR0RE*3 

CONTRL 

112 

000131 

GOTO  40? 

CONTRL 

113 

000132 

484  IF  (MRORE. EO. 3)  MRORE*0 

CONTRL 

114 

000135 

IF  (NOMCH-l)  <.90.488.466 

CONTRL 

115 

000140 

486  NRORE=S 

CONTRL 

i  16 

000141 

GOTO  492 

CONTPL 

117 

009142 

488  MB0RE=4 

CONTRL 

j!8 

000143 

GO  TO  49? 

CONTRL 

119 

000144 

490  IF  (MRORC.EO.4  .OR.  NBORE.E0.5)  MBOREO 

CONTRL 

120 

000154 

492  IFILOADR  ,E0.  0)  GO  TO  494 

CONTRL 

121 

000155 

NUOU«NUOU» 1 

CONTRL 

122 

000157 

GO  TO  500 

CONTRL 

123 

000157 

494  IF (MR, ORE  .NE.  6)  GO  TO  496 

CONTRL 

124 

000161 

MRORE  =0 

CONTRL 

125 

000162 

NU0U»0 

CONTRL 

126 

000162 

GOTO  530 

CONTRL 

127 

000163 

496  NUOU>0 

CONTRL 

128 
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CONTRL 
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000164  GO  TO  530  ... 
000165  500  IF  (  <MR0RE.EO.3I.OR.<MROR£.EO.4).OR.<MBORE.EO.5n  GOTO  530 
000201  IF (LVEHCL  .GT.  01  GO  TO  530 

C  TRAIN  OUEUE  IS  CHECKEO  TO  MOVE  ANOTHER  TRAIN  INTO  THE  LOAOING 
c  TRAIN  STATUS  IS  CHANGEO  ON  ALL  TRAINS  AFFECTEO  BY  QUEUECHANGE 
C 


000204 

LLTR*0 

000204 

00  515  1TR*1 .NTRA1N 

000206 

IF  (  (1TSTAT  ( I TP . 1 1.NE.0) .OR. 

000217 

65T0PI 1TRI=JST0P(!TR)-1 

000221 

JSTO?(1TR|=KSTOP(1TRI 

000223 

LLTR=LLTR«1 

000225 

IF  ( JSTOPI 1TR1 .NE.100I  GOTO 

0  C  3  2  3  0 

KSTOP(lTRls) 

000231 

515 

CONTINUE 

000234 

nurlo=lltr 

000235 

LOUE=LLTR*100 

000237 

IF  (NUMLO.EQ.Ol  M80RE«6 

000241 

530 

CONTINUE 

000241 

IFINUflM  .GE.  21  MR0RE«6 

090245 

IF  ( 1FXCA.EO.0 1  GOTO  531 

000246 

IF  (MqnRE.EO.01  NB0RE*7 

0002S0 

GOTO  512 

000251 

531 

IF  ( MPORF .E0.71  MRORE«0 

000254 

532 

continue 

000354 

IFIMCV  .E 0.  01  GO  TO  540 

000255 

IF  (MnoRE.EO.01  MR0RE«8 

000257 

GOTO  542 

OOC’tO 

540 

IF  (MnORE.EO.81  MRORE*0 

000363 

542 

CONTINUE 

000263 

I T  RORF  sMRORE 

/» 

V. 

PRINT  OUTPUT  REPORTS 

000265 

460 

1 F  C T  .LT.  TPRINT)  GO  TO  461 

000270 

CALL  OUTPUT 

000271 

tprint*tppint*otprnt 

000273 

461 

1  REPORT -RFPOpT* 100 

000277 

lT=T*100-i 

000304 

LK^MOOIIT. 24001 

000310 

IFILK  ,NE .  0)  GO  TO  462 

000311 

CALL  MA*AOV 

000312 

462 

LKsMOni IT. 1RFPORT1 

000316 

1/(LK  .NE.  01  GO  TO  470 

000317 

CALL  RFPORS 

000320 

CALL  REPORO 

000321 

470 

CONTINUE 

000321 

IF (0*  .NE.  0.1  GO  TO  471 

000322 

1N1*=1NIX-1 

c»» 

c 

c 

SHOULD  SIMULATION  BE  ENOEO 

c 

C"* 

000124 

IF (INI*  ,GT.  720)  GO  TO  605 

0003  7 

GO  TO  472 

CONTRL 
CONTRL 
CONTRL 
CONTRL 
ARE  CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 
CONTRL 


129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 
1B3 


VI-58 


golet* 

FORTRAN 

1.3  •  AUTO  PfL  •  (07-12-72)  CONTRL 

07/25/72 

000327 

471 

1 H  I  «  J  <1 

CONTBL 

164 

000330 

47? 

CONT  T  SI  IF 

CDNTRL 

165 

000330 

IF  IT.LT.TmA*  ,ANO.  X.LT.IHAK)  GOTO  400 

CONTRl 

1  66 

CONTBL 

167 

C 

CONTBL 

188 

C 

ENDING  SIMULATION 

CONTPL 

189 

C 

CONTBL 

190 

c»* 

CONTRL 

191 

0003A1 

473 

CALI  ntlTP'MT 

CONTBL 

192 

00034? 

CALI  ~fP04S 

CONTRL 

193 

000343 

CALL  PCP^BD 

CONTBL 

194 

000344 

RFTURN 

CONTBL 

195 

000344 

600 

PRINT  6"  I 

CONTRL 

196 

000352 

601 

F OBhat  (  ?anO  GEOLOGY  FILE  EXHAUSTED1 

CONTBL 

197 

000352 

RETURN 

CONTBL 

198 

000354 

605 

PRINT  474 

CONTBL 

199 

000360 

474 

F0=NAT(//.|«,40H  SIMULATION  endfd-no  advance  r OR  5  DAYS 

1  CONTBL 

200 

000360 

CONTBL 

201 

00036? 

END 

CONTBL 

202 

OLLClK JNG  VARIAHLES  f Ciu I TALENTED  8UT  NOT  REFERENCED 
NTRUCS 
ltbain 
LTRIICK 
IFRD 
LIFILO 
IFILLO 
LNTRDA 
LLTPAN 
LLTBlJK 
LNTRAN 
LNTRIJK 
(MOVE 
jheth 
XOE 
PC 

NVEHCl 

NTDA 

LLVHCL 

LNVhCL 

JMOVE 

1M£TH 

XE 

PB 


VI-59 


E 


SUBROUTINE  INPUT 


GOLETA  FORTRAN  1.3  •  AUTO  RFL  •  (07-12-721 


07/25/72 


000002 


000002 

000002 

000002 

C00002 


000C02 


000002 


000002 


000002 


000002 

C00002 


000002 

000002 

000002 

009002 

005002 

900002 

000002 


009002 

900002 

090002 

000002 

000502 

000002 


SUBROUTINE  INPUT 

C»»* 

COMMON  /WHEELS/  AE*  AF  *  AMAX  « AMAXL. AMINL  »BSL  « CARCAP.CP*  OE .OF • OTAS 
1  .  OTMA.OTU.rL.rc.FR.FT.HPA.HPFA.HPEV.HPFA.HPFV.HPV.LOCO.MC.ML 

2,  NCAOS.NPOINT.NTO.NTH.NTMAX.XP.NTMII.P.NTMLPP.NTRACK.SL 

3,  TCURVX (20) .TCURVYI20I  • TM A INT . TWE • VD . VS . VE . VF . VMi X , WC . WL . XOS 
A.  MAXLO.NUM|.O.LOUE.OUC.WUC.STATUS(36>  .WHY  ( 24  )  .MLTYP.WMR.ECONE0* 

5  ECONSS. EL9C0. EMUCKC.  E TRACK. FSWITC.EUNLOA. ERMA  IN. IIBORE* 

6  ISWI2SI .NTINIT.TCCV.TMCV 

COMMON  /OLOCOM/  IFILn.KSTOP (?S) .KUNLO.LSTDP.LVEHCL.NBYBY.NSWCH 

1 .  NTPOA, NVFwCL.NUMSWT,  SWITCH) 20 ) .TFC(2S) .TOP (25) .TSTAT (25.4) 

2.  UT  IMF  (251  .L0A0R.MUK0T  .XOS.  IFXCA.MC.S  (S ) . MCV. MFLAGC. DUMMY  (20 ) 
COMMON  /NFWCOM/  LIFIL0.LKST0P(2S) .LKUNLO .LLSTOP.LLVHCL .LNRYBY 

1.  LNSWCH.LNTROA .LNVHCL  »LNMS WT .FSWTCH(20).FTFC(?S).FTOP(2S) 

2.  FTSTAT ( ?S . 4 ) ,FUT  IMF (2S I .LLOAOR.LMUKOT .FxGS.L IEXCA.LMGS (5) 

3.  LMCV.LMFLAC.rnUMMY(19) 

01  MENS  ION  COMOLn(260) .COMNFW (260). LIST  AT (25.4) ,1TSTAT(2S.4> 
EOUIVALENCF  (NVEHCL.NTPAIN.NTRUCK), (LVEHCL.LTPAIN.LTRUCK) 

1.  ( COMOLO. IF ILO) . (COMNEW.LIFILO.IFILLO) . ( NTOA .LNTROA ) 

2.  (FTSTAT.L  TSTAT) . (TSTAT. ITSTAT) 

3.  (LLVHCL  .LLTRAN.LLTRUK I , (LNVHCL .LNTRAN.LNTPUK) 

COMMON  /PORING/  CL(1).CPC.nTA.f)TC.OTCn.OTO.OTM,KK,PBM,R(IOO),RC 

A,  RPM.TR.XCPC.  MASSEM.MBM.MBORE.MCn.MniSAS.LNCHNG.LNCUTR.NCUT (20) 

B.  WEARUOOI  .EPOREO.ETRANS 

COMMON  /CONVFY/  ACM.nTBS.nWM.EE.FL.HP.QC.SMIN.WRI 
1  «  WO  .  XL  F  ,MC||Or,r  ,r»p  .03.  S«  ,  riTCR.  nT‘*n ,  AP.  VP  I  «MFX ON. MC.ro.  »F  ,  LNSUPG. 
?  GT  I  wr  .oruo.rTHi  ,0T'/0.ri.u 

COMMON  /BLAST  /  AOB.AC'H.AH.CBIT. CPURN .CCAP »CE X .CM.CPL . CSTEEL 

B.  LO.I.nB.LPIT  ILRUPN.LSTEFI  .  MFN .  NO.NOR.NH.  NMR  ,PE  .POB.P00.  TCHG 

C.  TIN.TOUT.TyPEPF.WPL.JUMIN.JUMOUT.NORILB.NORILL 
COMMON  /ALL  /  XT.STR.IA.POO.CS.TAMB.FLOW.IFLAG 

1.  AT.n.E.SK.T.OT.X.PR.XMAX.TMAX.OX.nv.TPRINT.OTPRNT. 1MOVE . JMETH 

2.  TSHFT.RfPORT. OPPCT  .TO.  X0. XOISCH. I CHNG. XCHNG. T  CHNG 
EOUIVALENCF  (JMOVF . IMOVFI . ( IMETH, JMETH ) 

common/moncy/  jmmhm.ojm , n jmmh . n jmro. n jmrmm . om a i nt .ojmbm . djngs 

1.  PMC.S.  JMCV.OJMEC.ROPLAN.HPLANT.r.SPLAN 

2.  ECPL*N.RnTIME.HTIME(2) . GSTIME .ECT1ME 

CO“MON/PEPFR«/  ROUT IM, ROOT IM.UMHTIM.OMHTJM.GSUTJM.GSOTIM.ECUTIM 
1.  ECO! IM.GOAY.GAOV.GEND. GREG 

COmmon/LAROR/  RnMFN(I0.2) .HMFN(10.2.2).GSMEN(10.?).ECMEN(10.2) 

REAL  JMMHM.LO.LOR.LBIT.LRURN.LSTEEL.JMCV 
OIMENSION  G (R) 

EOUIVALENCF  (G.XT) .  (XF.XOF.) .  (PR. PC) 

COMMON  /GRNO/  OSSTI60.R) .MAXPSST.  UCS . UCSC .RATERB.RATESC.RATESS 
1 .  GSLOS.IAS.IST.FRBORI .ESCPLA.GOOW.GSETOO.MAXPSS 
COMMON  /ENVC/  MAXMEN.TOTHP.OM.OO.VAMIN.VAMAX.OG(IO). 

I  TA.  T'T.VJA  ,F<n.FKT  .CPA  .C1' »  .REFOAT.  A«r  (  |  0)  .00B.rVFNTP.CR|iMO 

c*** 

OIMENSION  Imagf()4>  .METHOOdO)  .MOVFR(IO) 

OAIA  (METHOO(I) .I*1.19)/4HRORE.5HBLAST.3HJET.6HPFLLET.6»5HOUMMY/ 
CATA  (MOVER(J).J*1.10)/  SHRAlLS.  6HTRUCKS.  SHBELTS.  7»SHDUMMY/ 
OATA  ( P  |  *  3 . 141S926S1SR9S) 

OIMENSION  ISTA(2S) .TPOS (25) . TSPO ( 25 ) . TMA IN (25) 

DIMENSION  BOMEN(IO) . ROCST (10) .RAMFN (lO).RACST(IO) .CVMENI 10 ) . 

1  CVCST(IO) . GMEN (10)  .GCST (10) . VCMfN( lO).VCCST(iO) 


INPUT 

2 

INPUT 

3 

WHEELS 

2 

WHFELS 

3 

whfels 

4 

WHFELS 

5 

WHFELS 

6 

wheels 

7 

whfels 

8 

whffls 

9 

WHFELS 

10 

WHFFLS 

11 

WHFELS 

12 

WHEELS 

13 

WHEELS 

14 

WHEELS 

IS 

WHFELS 

16 

WHFFLS 

17 

WHFELS 

IB 

WHEELS 

19 

WHFELS 

20 

BORING 

2 

BORING 

3 

BORING 

4 

BELTS 

2 

1 

2 

BLAST 

2 

BLAST 

3 

BLAST 

4 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

11 

ALL 

12 

ALL 

13 

ALL 

14 

SUPPORT 

2 

SUPPORT 

3 

ENVIRON 

2 

ENVIRON 

3 

INPUT 

11 

INPUT 

12 

INPUT 

13 

INPUT 

14 

INPUT 

15 

INPUT 

16 

INPUT 

17 

INPUT 

18 

GOLETA  FORTRAN  1.3  •  AUTO  PEL  •  (07-12-7?!  INPUT 

07/25/72 

00000? 

NAMELIST  /ROPE  / 

INPUT 

19 

1  CL.CPC.DTa.OTC.OTCO.OTD.OTH.KK.PBM.R.RC.RPM.TR.XCPC 

INPUT 

20 

2.t'ROPFQ.ETRANS.OJMBMM,BOMFN.BOCST 

INPUT 

21 

000002 

NAMELIST  /BLAST  / 

INPUT 

22 

1  2 

INPUT 

23 

000002 

NAMELIST  /JET  / 

INPUT 

?A 

1  ? 

INPUT 

25 

000002 

NAMELIST  /pellet/ 

INPUT 

26 

1  2 

INPUT 

27 

000002 

NAMELIST  /RAJLS  / 

INPUT 

28 

1  AE.AE .amax.AMAXL.AMINL.RSL.CAPCAPiCP.DE.DE.DTAS.DTMA.DTU 

INPUT 

29 

A,  NSWCH.NOFO.NEXON.XDE.AR.VP1.SM 

INPUT 

30 

2.  EL.EC.ER.ET .MPA . HPEVfHPEA  tHPEV  tHPE  A  .HPFV.HPV.LOCO.MC.ML 

INPUT 

31 

3,  NEAPS.NB0INT.NTD.NTM.NTMAX.XP.NTM1LP.NTMLPP.NTRACK.SL 

INPUT 

32 

A.  TaiPVX.TCiiPW.TMAlNT.TWE.vn.  VS.  VE • VF . VMAX .WC.  Ml  .XDS.MAXLO 

INPUT 

33 

5.  NVEMCL .NUUSWT .SWITCH, 1ST  A.TPOS. TSPO.TMA IN.KSTOp.MLTVP, WMR 

INPUT 

3A 

6.  ELOCn.EMUCKC.ETPACK.ESWlTC.EUNLDA.ERMA I N. JMMHM .NUMLO. ISM 

INPUT 

35 

7.  PAMEN.PACST 

INPUT 

36 

000002 

NAMELIST  /TRUCKS/ 

INPUT 

37 

1  AE.AF.Amax.AMAXL.AM1NL.RSL.CAPCAP.CP.DE.DE.DTAS.DTMA.OTU 

INPUT 

38 

A.  NSWCH.NGEOtNEXON.XDE.AR.VRI 

Input 

39 

2.  el.ec.ep.et.hpa.hpev.hpea.hpev.hpea.hpev.hpv.loco.mc.ml 

INPUT 

AO 

3.  ncars.npotnt.nto.ntm.ntmax.xp.ntmilp.ntmlpp.ntrack.sl 

INPUT 

A I 

A,  TCIIPVX.TCIIPVY.TMA1NT.TWE  .VD.  VS.  VE.VE.VMAX,  WC.WL.  XDS.MAXLO 

INPUT 

A2 

5.  NVEHCL.NHUSWT, SWITCH. ISTA.TPOS.TSPO.TMA |N. KSTOP.MLTYP.MMR 

INPUT 

A3 

A.  ELOCO.EMUCKC.ETRACK.ESWITC.EUNLOA. ERMA  IN. JMMHM, NUMLO. ISM 

INPUT 

AA 

7.  TRMEN.TPC«T 

INPUT 

A5 

000002 

NAMELIST  /REITS  / 

INPUT 

A6 

I  7 

INPUT 

A7 

000002 

NAMELIST  /GEnEPL/ 

INPUT 

AS 

1  0. DT. X.XMAX.T. TMAX.OTPRNT.sk. PR. OPPCT. REPORT. XDISCH.E 

INPUT 

A9 

000002 

NAMELIST/GPOUNO/ 

INPUT 

50 

I  UCS.UCSC.RaTEPR.paTESC.RA  fESS.MAXPSS.ERBDR! .ESCPLA.DJMGS 

INPUT 

51 

2.  GDOU.GSETOO.GMFN.GCST 

INPUT 

52 

000002 

Name L 1ST /LOAOEP/ 

INPUT 

53 

I  AR.VBI.SM.TCCV.TMCV.WMR.MLTYP.ECONEO.ECONSS.JMCV 

INPUT 

5A 

2.  cvmen.cvcst 

INPUT 

55 

000002 

NAMFLIST/ENVIPC/ 

INPUT 

56 

I  EVENTP.MAXMEN.TOTHP.TA 

INPUT 

57 

I ,  QM .QO.VAMlN.VAMAX.TO.WA.CPA .CKA.REERAT.AMC.VCMEN.VCCST.CPUMP 

INPUT 

56 

2.  ekt 

INPUT 

59 

00000? 

EOUIVALENCE(BOMEN(I).POMEN(l.l>t 

INPUT 

60 

000002 

EQUIVALENCE (ROCSTI 11 .RDMEN 11 .2) ) 

INPUT 

61 

000002 

EO!IIVALENCP(VC«EN(I!,ECMEN(  1.1)7 

INPUT 

62 

000002 

EQUIVALENCE  (VCCST  ( 1  l.ECMENd  .21  ) 

INPUT 

63 

000002 

EOJ 1  VALENCE (PAMENI 1 ) . HMEN (1.1, 1  )) 

INPUT 

6A 

00000? 

EOUIVALENCE(OACST(I1 .HMEN ( 1.2.1!) 

INPUT 

65 

000002 

EOUlVALENCE(CVMEN(l).HMEN( 1.1.2)! 

INPUT 

66 

000002 

EQUIVALENCE  I CVCST (l).HMENI 1.2.2) > 

INPUT 

67 

000002 

EQU 1  VALENCE ( OMEN ( 1 ) .GSMEN ( 1 . 1 ) ) 

INPUT 

6B 

000002 

EOUIVALENCE(GCST(l).GSMEN(l .2) ) 

INPUT 

69 

<:••• 

INPUT 

70 

000002 

EEUNC(X!«1,8»EXP(,08A»X) 

INPUT 

71 

C 

INPUT 

72 

c 

THE  FIRST  SECTION  OF  SUBROUTINE  INPUT 

INPUT 

73 

VI-61 


9 * 


goleta 


000013 


000014 

00002? 


00C025 

000025 

003933 

O0C043 

000043 

000060 

000060 

000062 

000571 

000071 

000072 

000074 


000076 

000106 

000106 

00C110 

000112 

000114 

000121 


000121 

000122 

000124 

000126 

000130 


000130 
0001 j1 


FORTRAN  1.3  •  AUTO  RFL  •  (07-12-72)  INPUT 


C  C0»IE5  CAR0-1MAGE5  FROM  F1LF4  (CARD  REAOER) 

C  ONTO  FILE5  (INPUT  FILE  FOR  REMAINDER  OF  PROGRAM! 

C  ANO  FILE6  (OUTPUT  FILE  FOR  THE  PROGRAM! 

C 

(■••• 

LINE  a  0 

C»«» 

c 

C  COC  6000  FORTRAN 
C 

c»»» 

1  READ  (4.10)  image 
IF  (EOF. 4)  3.2 

c 

C  05500  FORTRAN 
C 

C  I  READ  (4.10.EN0O1  IMAGE 
C 

c««» 

10  FORMAT  (13A6.A2) 

2  KRITE  (5.10)  IMAGE 

IF  (MODILINE.40) .EO.O)  MRITE  (6.11! 

11  FORMAT  ( I H l .  NX  1 4HCARD-IMAGE5. . •/! 

IF  (MOO(LINE.IO) .EO.O)  WP1TE  (6.12)  (K*  K»5.80.5) 

I?  FORMAT  (IHO.  19X1615/  14X6HCARD  .  8 < 10H. 1 1 
LINE  *  LINE*! 

WRITE  (6.13)  LINE.  IMAGE 
13  FORMAT  (lift.  2X13A6.  A2! 

GOTO  I 

3  ENOF1LE  5 
REMIND  5 

C 

c  REAO  FRAGMENTATION  ANO  REMOVAL  METMOOS 

C 

C"* 

RE*0  (5.21)  M.N 
21  FORMAT  ( A6.  4XA6) 

00  30  1*1.10 

IF  (M.EO.METHOO(I) !  GOTO  31 

30  CONTINUE 

MR  I TE  (6.36)  M 

36  FORMAT  (IHO.  9X21HFRAGMENTATI0N  METHOD  .  A6» 

1  36H  CANNOT  8E  5IMULATE0  AT  THIS  TIME.... 

2  31HJOB  ABORTED  BT  SUBROUTINE  INPUT! 

I  *  0 

31  00  32  J* l  •  1 0 

IF  (N.EO.MOVFR(J) )  GOTO  33 

32  CONTINUE 

37  FORMAT  (IHO.  9X16HMUCK  REMOVAL  BY  .  A6. 

1  36H  CANNOT  RE  5IMULATE0  AT  THIS  TIME.,,. 

2  31HJ08  AROPTEO  BY  SUBROUTINE  INPUT! 

J  ■  0 

33  IF  (I. EO.O  .OR.  J.EQ.O!  STOP 


07/25/72 

INPUT 

74 

INPUT 

75 

input 

76 

INPUT 

77 

INPUT 

78 

INPUT 

79 

INPUT 

80 

INPUT 

81 

INPUT 

82 

INPUT 

83 

INPUT 

84 

INPUT 

85 

INPUT 

86 

INPUT 

87 

INPUT 

88 

INPUT 

89 

INPUT 

90 

INPUT 

91 

INPUT 

92 

INPUT 

93 

INPUT 

94 

INPUT 

95 

INPUT 

96 

INPUT 

97 

INPUT 

98 

INPUT 

99 

INPUT 

ioo 

INPUT 

101 

INPUT 

102 

INPUT 

103 

INPUT 

104 

INPUT 

105 

INPUT 

106 

INPUT 

107 

INPUT 

108 

INPUT 

109 

INPUT 

no 

INPUT 

111 

INPUT 

112 

INPUT 

113 

INPUT 

114 

INPUT 

115 

INPUT 

116 

INPUT 

117 

INPUT 

118 

INPUT 

i  19 

INPUT 

120 

INPUT 

121 

INPUT 

122 

INPUT 

123 

INPUT 

124 

INPUT 

125 

INPUT 

126 

INPUT 

127 

INPUT 

128 

VI-62 


X 


goleta 

FORTRAN  1.3  •  AUTO  AFL  •  (07-12-721  INPUT 

07/25/72 

0001*1 

IMFTH  «  I 

INPUT 

129 

0001*3 

JMOVE  *  J 

INPUT 

130 

0001** 

RE AO  (5.0ENERL) 

INPUT 

131 

0001*7 

WRITE  I6.GFNFPL) 

INPUT 

132 

000152 

GOTO  (110. I/O. 1 30. 1*0) •  INETH 

Input 

133 

00016? 

110  READ  (5. PORE  ) 

INPUT 

13* 

000165 

WRITE  (6. PORE  1 

INPUT 

135 

000170 

GOTO  205 

INPUT 

136 

000I7I 

120  READ  (5. BLAST  1 

INPUT 

137 

00017* 

WRITE  (6. BLAST  1 

INPUT 

138 

000177 

GOTO  205 

INPUT 

139 

000200 

130  READ  (5. JET  ) 

INPUT 

1*0 

000203 

WRITE  (6. JET  ) 

INPUT 

1*1 

000206 

GOTO  205 

INPUT 

1*2 

000,07 

1*0  READ  (5 • RELLFT 1 

INPUT 

1*3 

000212 

WRITE  (6. PELLET) 

INPUT 

1** 

000215 

20S  GOTO  (210.220.230) «  JMOVE 

INPUT 

1*5 

00022* 

210  READ  (5. RAILS) 

INPUT 

1*6 

000227 

WRITE  (6. PAILS  ) 

INPUT 

1*7 

000232 

GOTO  105 

INPUT 

1*8 

000233 

220  READ  (5. TRUCKS) 

INPUT 

1*9 

OC  0236 

WRITE  (6. TRUCKS) 

INPUT 

150 

0002*1 

GOTO  305 

INPUT 

151 

0002*2 

230  RFAO  (5. BELTS  ) 

INPUT 

152 

0902*5 

WRITE  (6. BELTS  ) 

INPUT 

153 

000250 

305  COMTINUE 

INPUT 

15* 

000250 

READlS. LOADER) 

INPUT 

155 

000253 

WRITE  (6. LOADER) 

INPUT 

156 

000256 

RE  AO (5 .GROUND) 

INPUT 

157 

900261 

WRITE  16.  OROU’D) 

INPUT 

158 

00026* 

READ  (5.ENVIRC) 

INPUT 

159 

000267 

WSITF  ( 6  .  ENV IRC) 

INPUT 

160 

000272 

REWIND  *0 

INPUT 

161 

00027* 

READ ( *0 . *02 )  G 

INPUT 

162 

000102 

ICHNGrl 

INPUT 

163 

090101 

T  CHWG=T/2* . 

INPUT 

16* 

COOKS 

xc'-RK.tx-xniscH 

INPUT 

16S 

000107 

*02  F0-'WAT(2E1B.10,I5.*E18.10.15) 

INPUT 

166 

000307 

at  »  Pi«o»n/*.o 

INPUT 

167 

000312 

PRINT  *03 

INPUT 

168 

000116 

403  FORMAT(IHI) 

INPUT 

169 

000116 

PRINT  *0*.  AT 

INPUT 

170 

00912* 

*0*  FORMAT  (25H0  TUNNEL  CROSS  SECTION  ■  F  10.*.  6M  SO  FT) 

INPUT 

171 

00932* 

LVENCL=0 

INPUT 

172 

000125 

03  306  I«I,25 

INPUT 

173 

000  327 

IT5TAT(I.1)*ISTA(I) 

INPUT 

17* 

900331 

TSTATI I.2)=TP0S(I) 

INPUT 

175 

00033* 

T5TAT(|.3)*TCPO(I) 

INPUT 

176 

000336 

TSTAT(I.*)«TMAIN(I) 

INPUT 

177 

0003*0 

IE  (ISTA(I).FO.O  .ANO.  KSTOP ( I ) >EQ. 1 )  LVEHCL»I 

INPUT 

178 

000350 

306  CONTINUE 

INPUT 

179 

000352 

IFIMAXPSS  ,EO.  0)  GO  TO  325 

INPUT 

180 

000353 

DO  320  I«1.“AXSSS 

INPUT 

181 

000355 

RE  AO (5 . 122 )  (PSST(I.K).Kal«9) 

INPUT 

182 

000370 

322  FORMAT (9F8.2) 

INPUT 

183 
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INPUT 


07/25/72 


000370 

320  CONTINUE 

INPUT 

183 

000373 

325  CONTINUE 

INPUT 

185 

000373 

XO=X 

INPUT 

186 

000375 

TO*T 

INPUT 

187 

000376 

NT  INI T*NVEHCL 

INPUT 

IBS 

000300 

RETURN 

INPUT 

189 

C 

INPUT 

190 

cco^oo 

ENTRY  INPUT2 

INPUT 

191 

000305 

PRINT  78 

INPUT 

192 

000311 

78  FORMATUHI) 

INPUT 

193 

000311 

PRINT  77 

INPUT 

193 

C  0  0  3 1 5 

77  FORMAT  (50H0  INPUT  OATA  AFTER  INITIALIZATION  BY  SUBROUTINES) 

INPUT 

195 

000315 

WRITE (6«GENEOL) 

INPUT 

196 

000320 

GOTO  <501 ,60 ? ,50 3, 503) , INETH 

INPUT 

197 

000330 

501  WRITE  (6.80RF) 

INPUT 

198 

0C0333 

GOTO  505 

INPUT 

199 

000333 

502  WRITE  <6. BLAST) 

INPUT 

200 

000337 

GOTO  505 

INPUT 

201 

000330 

503  WRITE  <6, JET) 

INPUT 

202 

000333 

GOTO  505 

INPUT 

203 

000333 

503  WRITE  <6. PELLET) 

INPUT 

203 

000337 

505  GOTO  <51I.512.5I3)«  JMOVE 

INPUT 

205 

000356 

51 I  WRITE  <6. RAILS) 

INPUT 

206 

000361 

GOTO  520 

INPUT 

207 

000362 

512  WRITE  <6, TRUCKS) 

INPUT 

208 

000305 

GOTO  520 

INPUT 

209 

000366 

513  WRITE  <6. BELTS) 

INPUT 

210 

000371 

520  WRITE  <6, GROUND) 

INPUT 

211 

000373 

WRITEI6. LOADER) 

INPUT 

212 

000377 

WRITE (6«ENVIPC) 

INPUT 

213 

000502 

RETURN 

INPUT 

214 

000603 

END 

INPUT 

215 

•FOLLOWING  VARIABLE'!  EQUIVALENCE!)  BUT  NOT  REFERCNCCO 

NTRA IN 
NTRUCK 
LTRAIN 
LTS'JCK 

itilo 

L  IF  1L0 

1FILL0 

LN'RDA 

LLTRAN 

LL  TBUK 

LN1RAN 

LNTRUK 

INOVE 

jmeth 

XT 

FC 

N70A 

ILVHCL 

LNVHCL 

X£ 


1 

1 

n 


ii 
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000002 


000002 


000002 


009002 

000002 


000002 

000002 

009002 

000002 


000002 

009002 

000002 

000002 

000002 

000002 

000002 

<109002 

000002 


000002 
009004 
000006 
000007 
00901 1 
000012 


SUBROUTINE  OUTPUT 

COMMON  /VHEELS/  i.F.aF.AMA/.AMAXL.AMINL.BSL.CARCAP.CP.OE.nF  tDTAS 
It  OTMA.DTU.rL.E'  .FP.:‘T.HPA.HPFA.HPEV.HPFA,HPF'V.HPV.LOCO.MC.ML 

2.  NCARStNPOINT. NTOtN. M t NTMAX t XP .NTMILP t NTMLPP tNTRACK t SI 

3,  TCURVX(?0> .T(  URVYI .  0) .  TMAINT  t  TWE  t  VQ  t  VS  t  VE  t  VE  t  VMAX  t  WC.  WL  t  XOS 
At  MAxLD.NUMLO.lOuE.OUC.WUC.STATUSOfct  .WHY(24i .MLTYP . WMR .ECONEQ. 

'5  ECONSS. ELOC0 •  EHUCKC .E  TR ACK.FSWI TC. EUHLOA .ERMAlN. 1 1  BORE  t 

6  ISW<25> tNTINlTtTCCVtTMCV 

COMMON  /OLOCOM/  IE ILO t *S TOP < 25) tKUNLOt LSTOP t L VEHCL t NRYBY t NSWCH 

1 ,  NTODA.NVEHCLiNUMSWT t SM ITCH <20 1  t TEC < 25 >  t TOP  < 25 > . TST AT  < 25 1 A ) 

2t  UTIME  <?5> tLOAOR.MUKOT t XGSt ITXCA tMGS (5) tMCVtMELAGCtOUMMY (20)  . 

COMMON  /NEMCOM/  LIEIL0tLKST0P|2S) .LKUNLO.LLSTOP t LLVHCL .LNBYBY 
It  LNSMCHt  LNTROA  tLNVHCL  t LNMSMT  tESMTCH(201tETFC(2S) .ET0P(?5) 

2,  ETSTAT<2S.<t).EllTIME(25)tLLOADRt  LMUKOT  t  EXGS  t  L IEXCA  tLMGS  (5) 

3 1  LMCVtLMELACtEOUMMY  ( 1  <9 1 

01  MENS  I  ON  COMOLO ( 260  >  t  COMNEW ( 260  > .L  TSTAT  (25.4) iITSTAT (25tA) 
EQUIVALENCE  (NVFHCL  t NTR A  IN  t NTRUCK ) t (LVEHCL  *L TRAIN. L TRUCK) 

It  (COMOLOt IETLO) t (COMNEMtLIEILOt IEILLO) t t NTDA.LNTROAI 
2 t  (ETSTATtLTSTAT) t ( TST A T t I TST AT ) 

3t  (LLVHCL.U  TRANtLLTRUK) . (LNVHCLtLNTRANtLNTRUK) 

COMMON  /SORING/  CL ( 3 ) t CPC t OTA ,OTC t DTCO t OTDt OTM tKK »PBM t R ( IOO) tRC 
At  RPM.TR  r X CPC .  maSSEM,mbm,MBORE.MCO.MDISAS.LNCHNG.LNCUTR.NCUT(20) 
Bt  WEAR(IOO).EBOREQ.ETRANS 
COMMON  /ALL  /  XT. STR. IA.RODtCS. IAMB. FLOW. IELAG 
It  AT.O.EtSKtT.OT.AtPR.XMAX.TMAX.nX.DVtTPRINT. DTPRNT  t IMOVE. JMETH 
2.  TSMET. REPORT. OPPCT. TO. XOtXOISCH.ICHNG.XCHNG.TCHNG 
EQUIVALENCE  (JMOVE. IMOVE) .< IMF TH. JMETH) 

COMMON/MONEY/  JMMHM.nj“.0JMMH,njMR0.0JMBMM,0MAINT.0JMBM,0JMG5 
It  PmgS.JMCV . 0 JMEC  t RDpL  AN .HPL ANT  tGSPL AN 
2.  ECRLAN.RnTI“E.HTIMF(21 .GST ImE.ECT ImE 
COMMON/PEBERm/  ROUT IM , ROOT IMtUMHT IM t OMHT IM.GSUTIM.GSDTIM.ECUTIH 
I.  ECOTIM.GOAY. GAOV .GENO .GBEG 

COMMON/LABOP/  RDMEN<I0.2). hmeN (10.2.2) tGSMEN(I0.2) .ECMEN(I0.2) 
REAL  JMMHM.LO.LOB.LRIT.LBURN.LSTEEL.JMCV 
OTMENSION  G(fl) 

EQUIVALENCE  ( G . X T ) . (XE.xOE) . (PR. PC) 

DIMENSION  IVAL  ( 20 ) 

COMMON/TEST /V*LUF  <  30 ) .NAME (30) 

I . I  HE  AO( 1 10) «JHEA0( TOO) 

EQUIVALENCE  (IVAL. VALUE) 

OATA  (NAME  =  2HT *•  2HX».  3HIA».  AHSTR«»  3HD*«.  AHMflM*.  7HLNCUTR». 

1  6HNRYBY=.  6HNSWCH* .  6HMflORE».  6HL0ADR*.  7MNUMSWT*. 

2  6HIEXCAr.AHMCVs.7HMELAGC».7HIE*CAV».7MMGS<2)« 

7  ,7hmGS(3)».7HMGS<A)..AHXGS«.SHPMGS«.AHODRm.8»IH  ).(NNAME»22) 

c 

C  OUTPUT  r OR  TEST  CASE 
C 

€••• 

VALUE ( I ) =T 
VALUE  <2>  *X»XOISCH 
IVAL ( 3) *1 A 
VALUE (A) «STR 
VALUE (S)*0< 

IVAL (6) *Mf M 


OUTPUT 

2 

WHEELS 

2 

wheels 

3 

WHEELS 

A 

WHEELS 

5 

wheels 

6 

wheels 

7 

wheels 

B 

wheels 

9 

wheels 

10 

WHEELS 

11 

WHEELS 

12 

wheels 

13 

WHEELS 

1A 

WHFELS 

15 

WHEELS 

16 

WHEELS 

17 

WHEELS 

IB 

WHEELS 

19 

wheels 

20 

BORING 

2 

BORING 

3 

BORING 

A 

ALL 

2 

ALL 

3 

ALL 

A 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

11 

ALL 

12 

ALL 

13 

ALL 

14 

TEST 

2 

TEST 

3 

TEST 

A 

TEST 

5 

OUTPUT 

7 

OUTPUT 

8 

OUTPUT 

9 

OUTPUT 

10 

OUTPUT 

II 

OUTPUT 

12 

OUTPUT 

13 

OUTPUT 

14 

OUTPUT 

15 

OUTPUT 

16 

OUTPUT 

17 

OUTPUT 

IB 

OUTPUT 

19 

Output 

20 

OUTPUT 

21 
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OUTPUT 


000014 

00001S 

000017 

000020 

000022 

000023 

00002S 

000026 

000030 

000031 

000033 

000034 

000036 

003037 

000041 

000043 

000044 

000350 

000050 

000065 

000065 

009100 

OOO'.OO 

000102 

000115 

000115 

000115 

000117 

000121 

000123 

000125 

000127 

000130 

000133 

000135 

000137 

030142 

000203 

000203 

000206 

000206 

•FOLLOWING 

NTPAIM 

NT»UCK 

LTPAIN 

LTRUCK 

1FILO 

LIFILO 

IFILLO 

lntroa 

lltran 

lltruk 


1 VAL (7) =LNCUTR 
IV  AL (A) =NRYRY 
IVAL (9) =NSWCH 

IVAL (101 *MROPF 
IVAL(lll=LOAOR 
1VALU2)=NUMSWT 
IVAL<131=IEXC* 

IVAL‘i4)*MCV 
IVAL (1S)»MFLAGC 
IVAL  ( 16)  =NI)MLD 
I VAL ( 17 1 =MGS (2) 

IVAL ( 18) *MGS (31 
IVAL ( 19) =MGS ( 4 1 
VALUE (20)*XGS-XOI 5CH 
VALUE (21 1 *PNG5 
VALUE (22)*QOR 
PRINT  5 

5  F0RMAT(///.lX.16M  WORKING  5TORAGE  1 
PRINT  4 1 1 •  (NAME ( II. VALUE (II.  I»I  iNNAME  1 

411  rORHAT  (//2(3XA7.E10.3) »3XA7. 14. 2I3XA7.E10. 31. 3XA7.1*/ 

I  9 ( 3XA7  *14)/  4(3XA7.I41.3(3XA7.FiR.311 

PRINT  412.  (WEAR (K) «K«1 .KK1 

412  rORMAT  ( 16H0  CUTTER  WEAR...  /  (If  iO.311 
IF  (LNCUTR.NF . 1 >  GOTO  420 

PRINT  413.  INCUTIIl.Ial.LNCHNG) 

413  FORMAT  (26H0  CUTTERS  BEING  CMANGEO...  /(lOIIOll 
420  CONTINUE 

104  DO  10A  I«1 .NVEHCL 
15*1 TSTAT ( I • I ) 

*5*15.3*1 


MS*KS.2 

JS*KSTOP(I) 


LS* JS*3-2 

IF  (JS.GT.100l  L5*I9 
IF  (J5.E0.01  LS»22 


NS  *LS*2 


TTT*TSTAT(I«?) -XDI5CN 

PRINT  105.  I.  (STATUSIK).K-KS.MS).<WHV1L1*L>IS.NS> 


1 :TTT.(TSTAT(T.J).J“3.4).I5.J5 
105  FORMAT  II1H  TRAIN  NO.  12.  3A6.  2X3A6. 

1  4M  X  »  Ell. 4,  8H  FT  V  ■  Eli.*.,  12H  NPM  OSH  ■ 
ICS  CONTINUE 


FT.*.  2151 


RETURN 

END 

VARIABLES  EQUIVAlENCEO  BUT  NOT  referenceo 


07/25/72 

OUTPUT 

22 

output 

23 

output 

24 

output 

25 

OUTPUT 

26 

OUTPUT 

27 

OUTPUT 

28 

OUTPUT 

29 

OUTPUT 

30 

OUTPUT 

31 

OUTPUT 

32 

OUTPUT 

33 

OUTPUT 

34 

OUTPUT 

35 

OUTPUT 

36 

OUTPUT 

37 

OUTPUT 

38 

OUTPUT 

39 

OUTPUT 

40 

OUTPUT 

41 

OUTPUT 

42 

OUTPUT 

43 

OUTPUT 

44 

OUTPUT 

45 

OUTPUT 

46 

OUTPUT 

47 

OUTPUT 

48 

OUTPUT 

49 

OUTPUT 

50 

OUTPUT 

51 

OUTPUT 

52 

OUTPUT 

53 

OUTPUT 

54 

OUTPUT 

55 

OUTPUT 

56 

OUTPUT 

57 

OUTPUT 

58 

OUTPUT 

59 

OUTPUT 

60 

OUTPUT 

61 

OUTPUT 

62 

OUTPUT 

63 

OUTPUT 

64 

OUTPUT 

65 
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l 

I 

] 

I 


LNTRAN 

LNTRUK 

’MOVE 

JHETM 

XT 

XOE 

PC 

LVEHCL 

NTOA 

LLVHCL 

LNVHCL 

JHOVE 

1METM 

XE 

PR 


I 

1 

I 

I 


I 

0 

I 

1 

I 

I 

I 
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SUBROUTINE  BORE 

BORE 

? 

C 

ELEMENT  -  ROCK  DISINTEGRATION 

BORE 

3 

C 

GENERAL  PROCESS  -  BORING  MACHINE 

BORE 

4 

C 

ACTIVITY  -  BORE 

BORE 

5 

C 

TFCHNIOUE  -  ROLLING  DISC  CUTTERS 

BORE 

6 

000002 

COMMON  /BORING/  CL ( 3) .CPC .OTA, DTC.DTCD.DTD.DTM ,KK ,PBM ,R ( 1 00) .RC 

BORING 

2 

A.  RPM.TR.ICPC*  MASSEM.MBM.M0ORF.MCD.MDI5A5.LNCMNG.LNCUTR.NCUT (20) 

BORING 

3 

B.  MEAR(I00),EBOREO.f TRANS 

BORING 

4 

006002 

COMMON  /ALL  /  XT. STB. IA.ROD.CS.TAMB.ELOW. IELAG 

ALL 

2 

I.  AT.D.E.SK ,T .DT.X.PR.XMAX.TMAX.DX.DV.TPRINT.DTPRNT, IMDVE. JMETH 

ALL 

3 

2.  TSHET. REPORT, OPPCT, TO. XO.XOISCH.ICHNG.XCHNG.TCHNG 

ALL 

4 

000002 

EQUIVALENCE  (JMOVF.IMOVE).(IMETH, JMETH) 

ALL 

5 

000002 

COMMON/MONEY/  JMMHM.OJM.O JMMH.OJMRO.D JMRMM.DMAINT.L JMBM.0JMG5 

ALL 

6 

1 .  PMGS » JMCV.D JMFC .ROPLAN.HPL ANT . 6SPLAN 

ALL 

7 

2.  ECPLAN.RDTIME.MIIME(2).GSTIME.ECTIME 

ALL 

B 

000002 

COMMON/PFRFRm/  R0UTlM,RDnTlM,UMHTIM.DMHTIM,05UTIM,GSDTTM,ECUTIM 

ALL 

9 

I.  ECOTIM. GOAY ,GAOV .GENO.GBEG 

ALL 

10 

000002 

COMMON/LABOR/  RDMEN ( 10,2) .H«EN ( 1 0, 2 «2> .G5MEN ( 1 0 . 2) .ECMEN ( 1 0.2) 

ALL 

II 

000002 

REAL  JMMHM.LD.LDB.LBIT.LflURN.LSTEEL.JMCV 

ALL 

12 

00000? 

DIMENSION  G(fl) 

ALL 

13 

00000’ 

EQUIVALENCE  (G.XT) , (XE.XOE) . (PR, PC) 

ALL 

14 

00000/ 

DATA  (RDUTIMFrO.), (RDDTIME-0.) 

BORE 

9 

000002 

DATA  NEEOIN.INIT.IESET/3«0/ 

BORE 

10 

C 

OPTION  2  -  OIAMETER  WITHIN  6-20  FT.  ANO  5TRENOTM  WITHIN  5-30E3PSI 

BORE 

II 

000002 

1 

IE  (D  .GT.  20.1  .OR.  D  .LT.  6.0)  GO  TO  10 

BORE 

12 

000013 

IE  (STB  .GT.  30.1  .OR.  STR  .LT.  5.0)  GO  TO  10 

BORE 

13 

000023 

INIT  =  I 

BORE 

14 

000334 

IE ( PflM  .EO.  0.)  P0M«4O.*EXP(.19*O) 

BORE 

15 

000032 

IEIPR  .EQ.  0.)  PRn.02 

BORE 

16 

000034 

IE(E  ,NE.  0.)  GO  TO  5 

BORE 

17 

000035 

IESET=I 

BORE 

IB 

000036 

5 

IFINEEOIN  .EO.  0)  GO  TO  999 

BORE 

19 

000037 

NEFOIN*0 

BORE 

20 

000040 

GO  TO  25 

BORE 

21 

000040 

10 

PRINT  20 

BORE 

?2 

000044 

20 

FORMAT  (  B7h  boring  machine  PARAMETERS  MU5T  BE  SPECIFIED  FDR  THIS 

RORE 

23 

I  TUNNEL  DIAMETER  0»  ROCK  STRENGTH  ) 

BORE 

24 

300044 

STOP 

BORE 

25 

c 

BORE 

26 

000046 

ENTRY  BORER 

BORE 

27 

000053 

25 

IFUNIT  .EQ.  I)  GO  TO  2B 

BORE 

28 

000055 

NEEOIN*! 

BORE 

29 

000056 

GO  TO  I 

BORE 

30 

000057 

28 

IF  ( IESET  .EO.  0)  GO  TO  29 

BORE 

31 

000060 

E*I.B»EXP(.OB4»STR) 

BORE 

32 

000066 

29 

CONTINUE 

BORE 

33 

c 

BORE 

34 

c 

COMPUTING  LABOR  TIME  USED  FOR  THIS  ACTIVITY 

BORE 

35 

c 

BORE 

36 

000066 

RDTlME*ROTIME»OT 

BORE 

37 

000070 

IE  IMRORE.NE.O)  GOTO  40 

BORE 

3B 

000071 

30 

OJMRO»D JMRO  «  PflM  *  .746  •  PR  •  OT 

BORE 

39 

000076 

0XsPBM*DT/ AT/E *550. *3600./ 144000. 

BORE 

40 

000102 

OV»DX«AT 

BORE 

41 

c 

BORE 

42 

VI-68 


goleta 

FORTRAN 

1.3  •  AUTO  RFL  •  (07-12-72)  BORE 

07/25/72 

c 

COMPUTING  UP  TIME  FDR  ROCK  DISINTEGRATION 

BORE 

43 

c 

BDRE 

44 

000103 

ROUTIMiROUT Im«OT 

BORE 

45 

c 

BORE 

46 

c 

COMPUTING  PLANT  ANO  EOU1PMENT  COSTS  FOR  BORING 

BORE 

47 

c 

BORE 

48 

000105 

35 

R0PLAN»R0PLAN*DX*E80RE0‘0X*ETRAN$ 

BORE 

49 

oconi 

RETURN 

BORE 

50 

c 

BDRE 

51 

000112 

40 

ox=o. 

BORE 

52 

000113 

DV*0, 

BORE 

53 

000114 

IF  ( MRDRF  .of.  11  r.o  TO  TB 

BORE 

54 

000117 

ROOT IM*PDDTlM»OT 

BORE 

55 

000121 

999 

CONTINUE 

BORE 

56 

000121 

RETURN 

BORE 

57 

000122 

END 

BORE 

58 

•FOLLOWING  VARIABLES  EQUIVALENCEO  BUT  NOT  REFERENCED 

IMOVE 

JMETH 

XT 

XOE 

PC 

JMOVE 

IMETH 

XE 
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07/25/72 


C 

c 

c 

c 

000002 


000002 


000002 

000007 


000002 

000002 
000002 
300002 
000002 
000002 
CC0002 
000005 
000006 
000007 
00001 0 
000012 
000013 
000017 
000021 
000022 
000025 
00C02T 
000030 
000032 
000033 
000035 
000040 
000041 
000042 

C 

000042 

c 

000047 

000050 

000051 

000052 

000053 

C 

000055 
00006A 
000071 
000074 
0000 '6 


SUBROUTINE  CUTTER 
ELEMENT  -  ROOK  0 ISINTEGRAT ION 
GENERAL  PROCESS  -  BORING  MACHINE 
ACTIVITY  -  CUTTER  CHANGE 
TECHN10UE  -  ROLLING  OISC  CUTTERS 

COMMON  /BORING/  CL ( 3) . CPC .DTA .DTC.OTCO.DTO.OTM.KK .PBM.R ( 1 00) .RC 

A.  RPM.TR.XCPC.  MASSEH.MBM.MBORE .MCD.MOISAS.LNCHNG .LNCUTR »NCUT (20> 

B,  WE  AR 1 1 00 ) .EBOREQ .ETR  ANS 

COMMON  /ALL  /  XT.STR.lA.ROn.CS.TAMfl.ELOW.IELAG 
»,  AT.n.E.GK.T.OT.X.PR.XMAX.TMAX.DX.DV.TPRINT .OTPRNT . IMOVE* JMETH 
2,  TSHET.REP0RT.0PPCT.T0.X0.X01SCH.1CHNG*XCMNG*TCHNG 
EQUIVALENCE  (JMOVF. IMOVE) .  I1METH. JMETH) 

COMMON/MONEY/  JMmhm.OJM.OJMMH.OJMRO.DJMBMM.ONAINT.OJMBM.OJMGS 

1,  S'MGS.JMCV.OJMEC.RDPLAN.HPLANT.OSPLAN 

2,  ECPLAN.RO  TIME  »HT  I  ME  (2).GST1ME«ECT1ME  ............ 

COMMON/PERERm/  ROUTIM.ROOTIM.UMHTIM.OMHTIH.GSUTIM.GSOTIM.ECUTIM 

I,  ECDTlM.G0AY.GAnv.GEN0.6BEG 

COMMOU/LABOR/  ROMEN  (10.2)  .MMENI  10.2.2)  .GSMENM0.2)  .ECMENII  0.2) 
PEAL  jmMhm.LD.LOB.LB1T.LHURN.LSTEEL.JHCU 
OIMENSION  C.(R) 

EQUIVALENCE  (G.XT) . (XE.XDF) .(Pfl.PC) 

OATA  <TENPl*31 .415926235898) 

IE  (RPM  .GT.fl.O)  GOTO  11 

RPM  =  5.0 

CL ( I ) - 1 000000. 

CL ( 2) =400000 . 

CL  ( 3 ) =1 00000 . 

RC  =  .75 
KK=n/.4H  ..9 


R(I)=2.BB 
00  10  K*2.KK 
R<K)=R(K-1J.2.88 

10  CONTINUE 
CPC  *  80. 
XCPCO.38 
TR  ■  .5 

11  DO  IS  X  >  l.KK 
IS  WEAR(K)  a  0.0 

TIME  ■  0.0 

LNCUTR*0 

RETURN 


ENTRY  CUTCHG 

IE  (LNCUTR  .NE.  0)  GO  TO  30 
LNCHNG*0 

MK  »  0 

IE  (msoRE.NE .0)  RETURN 
DO  21  K«1,KK 
CALCULATE  CUTTER  WEAR 

WEAR (<) -WEAR (K)»TENP!»RPH»DT»R(K) /CL (IA) 

IE  (WrAR(K).GE.l.)  LNCUTR"! 

21  CONTINUE 

IE  (LNCUTR. NE. I )  RETURN 
00  22  K"1 *KK 


CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

BORING 

BORING 

BORING 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTEP 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 

CUTTER 


2 

3 

4 

5 

6 
2 

3 

4 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 
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CUTTER 

07/25/72 

000100 

IF  (WFAR(K)  ,LT.  RC>  GO  to  ?? 

CUTTER 

43 

000103 

WFARIK)  =  0. 

CUTTER 

44 

000104 

UNCUT  R  =  1 

CUTTER 

45 

000105 

LNOHNG  =  LNChNG  .  1 

CUTTER 

46 

000 1 0  T 

MK:  «f*l 

CUTTER 

47 

0001  10 

NfuT («k ) =K 

CUTTER 

46 

0001  1  1 

?? 

CONT  INI  T 

CUTTER 

49 

0001  14 

IF  (LNCUTR  .<0.01  GO  TO  40 

CUTTER 

50 

0001  15 

TTIMF  r  l  NCH'JG  •  T  R 

cutter 

51 

000117 

D  J“Rri;njMRO«LNCHNG*  ( 1 .0*XCPC)»CPC 

cutter 

5? 

000124 

RETURN 

CUTTFR 

53 

0001 ?5 

30 

T I “E  =  TIME  .  OT 

CUTTER 

54 

000  1 ?  7 

IF  ( T I“E  .GE.  TTIME)  GOTO  35 

CUTTER 

55 

000131 

U  N  C  U  T  R  a  ? 

CUTTER 

56 

00013? 

RETURN 

CUTTER 

57 

C 

CUTTTR  CHANGE  COMPLETED 

CUTTER 

58 

OC0133 

35 

TIME  =  0.0 

CUTTER 

59 

000134 

LNCUTR  »  0 

CUTTER 

60 

0001  35 

40 

RETURN 

CUTTER 

61 

000136 

ENO 

CUTTER 

62 

•FOLLOWING  VAR  I  ABLE?  EQUlVALFNCEO  RUT  NOT  REFERENCED 

1MOVE 

JMETM 

XT 

XOE, 

PC 

J“0vE 

IMETM 

XE 

PR 
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000002 


C 

C 


003002 


000002 

000002 


000002 

000002 

000002 

000002 

000002 

000002 

000005 

000006 

000007 

000010 

000011 

0C0013 

oooou 


SUBROUTINE  RFPAIR 

GENERAL  PROCESS  -  SORING  MACHINE 

ACTIVITY  -  GENERAL  MAINTENANCE  ANO  RFPAIR 

COMMON  /BORING/  CL (3) . CPC. OTA . OTC.OTCO. DTD . DTM  .KK  .PBM.P ( 1 00 > . PC 

A.  RPM.TR. XCPC.  MASSEM,MSM.MBORF.MCO.MDISAS.LNCHNG.LNCUTR.NCJT«20> 

B.  WEAR(IOO). EBOREO  «E  TRANS 

COMMON  /ALL  /  XT.STP. lA.ROO.CS.TAMB.FCON. IFLAG 

1.  AT.O.E.SK.T.DT.X.PB.XMAX.TMAX.OX.DV.TPRINT. OTPRNT  » I MOVE . JMETH 

2.  TSHFT.RFPORT.3PPCT.TO.XO.XOISCH.ICHNG.XCHNG.TCHNG 
EOUIVALFNCF  (JMOVF.IMOVE) • I 1METH. JMETH) 

COMMON /MONEY/  JMMHM.OJM .OJMMH.OJMRO.OJMBMHtONAINT .OJMBM.OJMGS 

1 ,  PMGS • JMCV. D JMEC .RDPLAN.HHLANT iGSPLAN 

2.  ECPL AN. ROT IME.HT IMF (21 . GSTI MF .FCT 1ME 

COMMON/PERFRM/  ROUT IM, ROOT IM.UMHT1M.OMMT IM.GSUTIN.GSDTIN.ECUTIH 
1,  ECOTIM.GOAY.GAOV.GEND.GBEG 

COMMON/LABOR/  RDMEN < 1 0 . 2) . HMEN < 1 0. 2. 2) « GSHEN (1 0. 2) .ECNEN <  1 0.2) 
REAL  JMMHM.LO.LOB.LBIT.LBURN.LSTEEL.JHCV 
DIMENSION  G(fl) 

EQUIVALENCE  (G.XT) . (XE.XOE) « IPR.PC) 

IF  (OTC  .GT.  0.0)  GO  TO  5 
DTC  »  7. 

DTM  .  1, 

OJMBMMiO. 

5  TM*0 . 

TIME*OTC 
MRM  =  0 
RETURN 


000014  ENTRY  MAINT 

C  IS  MAINTENANCE  IN  progress 

000021  10  IF  (MRM.NE.O)  GOTO  20 

000022  T I ME'T IME-OT 

C  IS  MAINTENANCE  REQUIRED 

000024  IF  (TIME.GT.O.)  RETURN 

000026  MRM=1 

000027  TMsO. 

000030  TIME*OTC 

000032  OJMRM=DJMRM»DJMBMM 

000034  RETURN 

C  IF  IN  PROGRESS.  UPDATE  PROGRESS 
000034  20  TM  *  TM  •  OT 

000036  IF  (TM.LT.OTM)  RETURN 

000041  MRMrO 

000042  TTME=OTC 

030044  RETURN 

000044  END 

•FOLLOWING  VARIARLES  EQUIVALENCEO  BUT  NOT  REFERENCED 


IMOVE 

JMETH 

XT 


XQE 

PC 

JMOVE 

imeth 

XE 


PR 


RFPAIR 

2 

REPAIR 

3 

REPAIR 

4 

BORING 

2 

BORING 

3 

BORING 

4 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

II 

ALL 

12 

ALL 

13 

ALL 

14 

REPAIR 

7 

REPAIR 

8 

REPAIR 

9 

REPAIR 

10 

REPAIR 

11 

repair 

12 

repair 

13 

REPAIR 

14 

REPAIR 

15 

REPAIR 

16 

REPAIR 

17 

REPAIR 

18 

RFPAIR 

19 

repair 

20 

REPAIR 

21 

REPAIR 

22 

REPAIR 

23 

REPAIR 

24 

repair 

25 

REPAIR 

26 

REPAIR 

27 

REPAIR 

28 

REPAIR 

29 

REPAIR 

30 

repair 

31 

repair 

32 

REPAIR 

33 
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07/25/72 

SUBROUTINE  CVLOAO 

CVLOAD 

2 

c 

CVLOAD 

3 

c 

ELEMENT  -  MATERIALS  HANDLING 

CVLOAD 

4 

c 

GENERAL  PRDCFSS  -  INTEGRATEO  CONT.  EXCAVATDR-CONVEYOR  LOAOER 

CVLOAD 

5 

c 

ACTIVITY  -  LOADING 

CVLOAD 

6 

c 

CVLOAD 

7 

OOOOO? 

COMMON  Af  . AF.amax.Amakl.AMIHI  .PSL.CARCAP.CP.DE.DF  .OTAS 

WHEELS 

2 

1 .  DTMA.DTH.rL  ,  Ff  ,  FR  .  £  T  .  HP  A  ,  HPf  A  ,  HPF  V  .  HPF  A  .HPF  V  .  HPV  .LOCO  .MC  .ML 

WHEELS 

3 

?.  NC ABI.NPOIHT .NTD.NTM.NTMAx . XP . NTH IL P . NT MLPP .NTRACK . SL 

WHEELS 

4 

3.  TCIIOV*  *?0)  .  TOIRVY  (?0)  .  THAI  NT.  TWf  .VD.VS.VE.  VF, VM AX . WC. WL  .XOS 

WHEELS 

5 

4.  MA«LD."  p-I  0. 1.0' if  ,'juc.  w.  o.  STATUS!  3h>  .WHY  (?4>  .MLTYP .WMR.ECONEQ. 

WHEELS 

6 

S  ECO*.SS  ,ri  "C  1, fmuO  C.F  I  RAC'  .  FSW  I  TC  .CUNLDA  .  ERMA  IN.  1 1  BORE. 

WHEELS 

7 

6  I Sw ( ?S I ,  N  T  I N I  T , TCCV , TMCV 

WHEELS 

8 

00000? 

COMMON  /Ot  or.lM/  IF  1  ID*  *STOP  (?S  >  .KUNLO.LSTOP.LVFHCL.NnYBY.NSWCH 

WHEELS 

9 

1,  NTPOA.Nvr  in  .NiiMS4T,SwITCM(?n)  .TFC(?S)  .TOP(?SI  «TSTAT(?5.4)  . 

wheels 

10 

?.  uti>'E(?s>  .LOACB*Miii-nr.«r,s.ifxcA.Mr,sis)  •  mc v » mflagc. dummy < ?o > 

wheels 

11 

00000? 

COMMON  /NF.COM/  L if ILP.L'STOP ! ?S> .LKUNL 0 .L LSTOP.LL VHCL .LNBYBY 

WHEELS 

12 

1.  LNSWCM.LNTB^A.l  >.VM"L  .1 NMSWT.FSWTCH  (  ?0  )  >ETFC  (  ?S  )  .ETOP  I  ?5> 

WHEELS 

13 

?.  FTSTaT ( ?  S ,  4  ) • F !  i  T I m  r (?SI .LLOAPR.LMUNDT .FXGS.LIFXCA.LMGS (5) 

WHEELS 

14 

3.  1  «r,  .L^'FL  AC  .FGu-my  ( 19) 

WHEELS 

15 

00000? 

01  MENS  ION  CCmoi  n  '  os 0  1  .COMnew  (?M1)  .L  TSTAT  l?S.4>  .  TTSTAT  (?5.4> 

wheels 

16 

00000? 

EOU  I  VALENCE  (NVFHCL  »*.T3»  IN.NTBUO  > .  (LVfHCL  .LTRAIN.LTRUCK) 

WHEELS 

IT 

I.  (COMOLO. Ir ILOI . ( COMNEW. L IEILO. IF 1LLD) . I NTDA .LNTROA ) 

WHEELS 

IB 

?,  (FT S TAT. LTSTATi. (TSTAT. ITSTAT) 

wheels 

,  1’ 

3.  ILLV’FL  .LLTRAN.LLTP.IK  )  .  (LNVHCL  .1  NTRAN.LNTRUK  ) 

WHEELS 

20 

00000? 

COMMON  /AIL  /  a  T . STP.IA.POO.es, TAMP, FLOW. IFLAG 

ALL 

2 

1,  AT,O.E.S«,T.OT.i,PO.«MAX, TMAX .OX.OV .TPRINT.OTPPNT , 1  MOVE  *  JMETH 

ALL 

3 

2,  T'HF  T.i  rrnOT.OPPCT,  TO.  TO.XfllSCM.ICHNG.XCHNG.TCHNG 

ALL 

4 

OOOOO? 

FOnIVaLESCF  (  ,“!•  ,'F,  IMO'.T)  .  (IM£th.  mETH! 

all 

5 

OOOOO? 

COMMON /MO’.ry  ,  jm m. .m  , 0  jm  , 0  |mmh , 0  )mR 0 . 0 JMRMM , DMA  INT  , 0 JMRM , o JMGS 

ALL 

6 

1 ,  PU'.S .  JM(-y  .0  (Mr  0  .POOL  an.mplant.gsplan 

ALL 

T 

?.  fcplan.pOI I“E.HTI“F(?) , GST  IMF, EC  TIME 

ALL 

8 

OOOOO? 

COM-  i.j/prarpj/  o  |T  I M  ,  ROOT  IM .  ()mMt  im  .DMHT  l  M  ,GSUT  1 M  .GSOTIM.ECUT  IM 

ALL 

9 

l  .  ECOTIm.GOAY  .f.AOV.GFNO.GHEG 

ALL 

10 

OOOOO? 

COMMON  LABOR/  POMFN( IO.?l ,MMFN( 10t?«?) »GSMEN(10.?> .ECMEN (10,21 

ALL 

11 

OOOOO? 

RFAL  (MM..M.I  o.LOP.LOIT.LBURN.LSTEEL.JMCV 

ALL 

1? 

OOOOO? 

0  I  MrNS  I  ON  GIB) 

ALL 

13 

OOOOO? 

EOU IV A l  rV  F  IG.  XT)  .  ( x£  .(FFI .  (PR. PC) 

ALL 

14 

OOOOO? 

COMMON  /CONVFY/  ACm.OTPS.Owm.FE.FL.HP.QC.SMIN.WBI 

BELTS 

2 

l ,  WP,  KLF.NS  iBfE.OE.QP.SM.OTCR.OTMR.AB.VRl.NEXON.NGEO.XE.LNSURG' 

UPRA7 

1 

?  STIMF.OOmr.OTmi.oTMO 

UP0A7 

2 

OOOOO? 

EQUIVALENT F  (VS.VRI) 

CVLOAD 

11 

OOOOO? 

DATA  INIT  /C/ 

CVLOAD 

1? 

OOOOO? 

OATA  NFEOIN  /O/ 

CVLOAD 

13 

OOOOO? 

OATA  OTLO  /O./ 

CVLOAO 

14 

OOOOO? 

OATA  OTEM  /?./ 

CVLOAD 

15 

OOOOO? 

DATA  QijF  /O./ 

CVLOAD 

16 

OOOOO? 

OATA  WUF  /O./ 

CVLOAD 

IT 

c 

INITIALIZE 

CVLOAD 

18 

OOOOO? 

100  IF  (AB  •  VP  ,EQ«  0.)  GD  TO  ?00 

CVLOAD 

19 

c 

OPTION  1 

CVLOAD 

20 

000004 

XWBK  =  AB  •  VP 

CVLOAD 

21 

ooeoos 

WMS  =  ,03  •  *WPK  •  CS  /  SK 

CVLOAD 

22 

900011 

QMS  =  60.  •  XWRK 

CVLOAD 

23 

ooe«i? 

PRINT  101,  QmR.umR 

CVLOAO 

24 
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000022 

101 

FORMAT  HOMO  QMR.WMRx  2E14.61 

CVLOAO 

25 

000022 

GO  TO  250 

CVLOAO 

26 

c 

OPTION  2 

CVLOAO 

27 

000023 

200 

OMR  «  2000.  •  WMR  •  5K  /  C5 

CVLOAO 

28 

c 

BOTH  OPTIONS 

CVLOAO 

29 

000027 

250 

INIT  =  I 

CVLOAO 

30 

000030 

ir  (NFEOIN  ,FO.  0)  GO  TO  900 

CVLOAO 

31 

000031 

NEEOIN  =  0 

CVLOAO 

32 

000032 

GO  TO  370 

CVLOAO 

33 

c 

NORMAL  ENTRY 

CVLOAO 

34 

000032 

ENTRY  LOAOCV 

CVLOAO 

35 

000037 

350 

IF  UNIT  .EO.  1)  GO  TO  370 

CVLOAO 

36 

c 

INITIALIZATION  REQUIRED 

CVLOAO 

37 

000041 

NEEOIN  «  1 

CVLOAO 

38 

000042 

GO  TO  100 

CVLOAO 

39 

c 

PERFORM  LOAOING 

CVLOAO 

40 

000043 

370 

OTLO  *  OT 

CVLOAO 

41 

000045 

OVLO  ■  OV 

CVLOAO 

42 

c 

CVLOAO 

43 

c 

COMMUTING  LABOR  TIME  U5E0  FOR  THIS  ACTIVITY 

CVLOAO 

44 

c 

CVLOAO 

45 

000046 

MTIME(2)*HTIME(2)*0T 

CVLOAO 

46 

000050 

IF (MCV  .NE.  0)  GO  TO  900 

CVLOAO 

47 

000051 

IFKMLTYP  .NF.  2)  .ANO.  (LVEHCL  .EO.  01»  GO  TO  380 

CVLOAO 

48 

c 

CVLOAO 

49 

c 

COMPUTING  Plant  ANO  EQUIPMENT  C05T5 

CVLOAO 

50 

c 

CVLOAO 

51 

000060 

MPLANT»MPLANT«EC0NEQ»0X«EC0NS5*0* 

CVLOAO 

52 

000064 

380 

IFfLOAOR  .NE.  1)  GO  TO  390 

CVLOAO 

53 

000066 

OTLO  *  2.»  OT 

CVLOAO 

54 

000070 

OVLO  *  OV  •  OTEM 

CVLOAO 

55 

000072 

390 

000  =  OVLO  •  SK  /  OTLO 

CVLOAO 

56 

0000^5 

WOO  X  OVLO  •  C5  /  (OTLO  •  SK  •  2000.1 

CVLOAO 

57 

000100 

IF  (MlTYP  .EO.  2)  GO  TO  609 

CVLOAO 

58 

c 

UNITI7CO  MAIN  LINE  SYSTEM 

CVLOAO 

59 

000102 

IF  (LLVMCL.LF .01  GOTO  700 

CVLOAO 

60 

0C0104 

LLOAOR  =  0 

CVLOAO 

61 

000105 

IF  (QTEM  .EQ.  0.)  GO  TO  550 

CVLOAO 

62 

c 

ACCOUNT  FOR  MUCK  FROM  LAST  CYCLE 

CVLOAO 

63 

000106 

our  =  QUF  ♦  OTEM 

CVLOAO 

64 

000107 

WUF  x  WUF  «  WTEM 

CVLOAO 

65 

000111 

OTFM  ■  0. 

CVLOAO 

66 

000112 

WTEM  -  0. 

CVLOAO 

67 

000112 

550 

IF  (OOD  .GT.  OMR  .OR.  WOO  ,CT.  WMR1  GO  TO  700 

CVLOAO 

68 

000124 

QUF  x  QUF  .  000  •  OTLO 

CVLOAO 

69 

000126 

WUF  x  WUF  ♦  WOO  •  OTLO 

CVLOAO 

70 

000131 

IF  (QUC  .GT.  QUF  .ANO.  WUC  .GT.  WUF)  GO  TO  900 

CVLOAO 

71 

c 

MAINLINE  UNIT  FULL*  CAN  BE  RELFA5E0 

CVLOAO 

72 

000142 

I  sLLVUCL 

CVLOAO 

73 

000143 

LKSTOP  ( 1 1  =>5 

CVLOAO 

74 

000145 

LT5TAT(I.1)«7 

CVLOAO 

75 

000146 

QTEM  x  QUF  -  QUC 

CVLOAO 

76 

OOC 150 

WTEM  x  WUF  -  WUC 

CVLOAO 

77 

000152 

QUF  x  o. 

CVLOAO 

78 

0001 j3 

WUF  x  o. 

CVLOAO 

79 
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CVLOAO 


000153 

000154 

000166 

000167 


000167 

000170 

000172 

003174 

000174 

000175 

•FOLLOW 

NTRAIN 

NTRUCK 

LTRAtN 

LTRUCK 

IFTLO 

l IFtLO 

IF1LLO 

LNTROA 


600 


GO  TO  <700 

if  (onn  .gt. 
FOL  *  000 
GO  TO  400 


CONTINUOUS  MAINLINE  SYSTEM 
QHR  .OR.  WOO  .GT.  WMRI  GO  TO  700 


IMG 


CONVEYOR  CAPACITY  EXCEEDED  -  TURN  OFF 
FXCAVATOR  NEXT  CYCLE  TO  AVG.  EXCESS  OUT 

700  LLOAOR  =■  1 
QTEM  *  OVLO 
WTEM  =  WOO  •  OTLO 
900  CONTINUE 
RETURN 
ENO 

VARIABLES  EOUIVALFNCFO  BUT  NOT  REFERENCED 


LLTRAN 

LLTBUK 

LNTRAN 

LNTBUK 

IMOVE 

JMETH 

XT 

XOE 

PC 

VBI 

NVEMCL 

NTOA 

LNVHCL 

JMOVE 

IMETH 

XE 

PR 


07/25/72 

CVLOAO 

80 

CVLOAO 

81 

CVLOAO 

82 

CVLOAO 

83 

CVLOAO 

84 

CVLOAO 

85 

CVLOAO 

86 

CVLOAO 

87 

CVLOAO 

88 

CVLOAO 

89 

CVLOAO 

90 

CVLOAO 

91 

CVLOAO 

*2 
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.ijm-  iiTfr~f<inr 


K. 


goleta 


000002 


000002 

000002 


000002 

000002 

000002 

000002 

000002 

J00002 


000002 


000002 


000002 

000002 


000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 


000002 

000003 


SUBROUTINE  CVMNT 


FORTRAN  1.3  •  AUTO  RFL  •  (07-12-72) 


07/25/72 


SUBROUTINE  CV«NT 

ELEMENT  MATERIALS  HANOLING 

GENERAL  PROCESS  INTEGRATED  CONVEYER  EXCAVATOR.  CONVEYER  LOADER 
ACTIVITY  MAINTENANCE 

COMMON  /ALL  /  XT.STR.IA.POO.CS.TANR.FLOW.IFLAG 

1.  AT.O.E.SK.T.OT  .X.PP.XMAX.TMAX.DX.nV.TPRINT.OTPRNT.IMOVE. JMETH 

2.  TSHET .REPORT .OPPCT .TO.XO.XOTSCM.I CHNG.XCMNG. TCMNG 
EOUI VALENCE  ( JMOVF. IMOVE) . (IMETH, JMETH) 

COMMON/MONEY/  JMMHM.OJM.OJMMH.nJMPD.DJMBMM.OMAINT .OJMBM.DJMGS 

1.  PMf,S.  JMCV.OJMEC.ROPLAN.HPLANT  .GSPLAN 

2.  ECpLAN.P0TI‘E.hTIME(2) .GST IME . FCT IME 

COmmon/PERFRm/  ROUT im.root IM.UMHT IM.OMHTIM.GSUTIM.GSDTIM.ECUTIM 
I .  ECOT I M . GOA Y . CADV . OENO. GREG 

COMMON/LABOR/  RO“FN( 10.21 .HMFNI 10.2.2) .GSMENII0.2) .ECMENII0.2) 

REAL  J“MHM,LO.lOB.LBIT.LBURN.LSTEFL.JMCV 
DIMENSION  G (8 ) 

EOU I  VALENCE  (G.XT).IXE.XOF).(PR.PC) 

common  /wheels/  ae.af.amax.amaxl. aminl.bsl.carcap.cp.de. OF. OTAS 

1.  otma.dtu.fl.fc.er.ft.hpa.hpfa.hpfv.hpfa.hpfv.hpv.loco.mc.ml 

2.  NCARS.NPOINT .NTO.NTM.N’MAX.XP.NTMILP.NTMLPP.NTRACK.SL 

3.  TCURVX (20) ,TCURVY<?0> .  SAINT . T WE . VO. VS. VE . VF . VMAX . WC. WL. XDS 

4.  MAXLO.NUMLD.LOUE.OUC.WUC.STATUSOft)  .WHY (24 > .MLT YP . WMP . FCONEO. 

5  ECONSS.FLOCO.FMUCXC.E TRACK  .FSWI  TC.EUNLOA.FPMAIN.  MRORF. 

6  ISW(2S) .NTINIT.TCCV.TMCV 

COMMON  /OLOCOM/  IFILD,KST0P(?5) .KUNLO .LSTOP.LVEHCL .NRYBY .nswch 

1.  NTROA.NVEhCL.NUMSWT. SWITCH (20) .TFC(25) .TOP ( 25) . TST AT ( 25.4) 

2.  UTTMEI2S) .LOADR.MUKOT . XGS . IFXCA. MGS (5) .MCV.MFL AGC. DUMMY (20) 
COMMON  /NFWCOM/  LIFIL0.LKST0R(2S) .LKUNLO.ILSTOP.LLVHCL.LNBYBY 

1 .  LNSWCH.LNTPDA.LNVMCI.LNMSWT,FSWTCH(20).FTFC(2S).FTOP(25) 

2.  FTSTAT (2S.4) ,FUTIME(25) .LLOAOR.LMUKOT .FXGS.L IEXCA .LMGS (5) 

3.  LMCV.LMFLAC.FOUMMY(I<J) 

DIMENSION  COMOLO (260). COMNEW (260 ) .LTSTAT(25.4) .ITSTAT (25.4) 
EQUIVALENCE  (NVEHCL.NTPAIN.NTRUCK) , (LVEMCL.LTRAJN.LTRUCK) 

1 .  (COMOLO. IF ILD) .  (COMNEW. L IEILD, IFILLO) . (NTOA.LNTRDAI 

2.  (FTSTAT.LT ST  AT) . (TST AT. ITSTAT  I 

3.  (LLVHCL.LLTRAN.LLTPUK) .(LNVMCL.LNTRAN.LNTRUK) 

DATA  LMCV.HCV/2»0/ 

OATA  TRET.TMNT  /2*0 « / 

OATA  INIT.NEFOIN  /2»0/ 

EQUIVALENCE  FOR  SPECIFIC  GENERAL  PROCESS 

EQUIVALENCE  (GOJM.JMCV) 

EQUIVALENCE  (MUST.MCV) 

EQUIVALENCE  (GDTC.TCCV) 

EQUIVALENCE  (GDTM.TMCV) 

EQUIVALENCE  (LMMNT.LMCVI 
EQUIVALENCE  (MFLAG.MFLAGC) 

EQUIVALENCE  ( 0 JMGP .0 JMMH) 

EQUIVALENCE (LMFL AG. LMFLACI 


INITIALIZATION 


10  mmnt«o 

IFIGDTC  .EQ.  0.)  G0TC«7. 


CVMNT 

2 

CVMNT 

3 

CVMNT 

4 

CVMNT 

S 

CVMNT 

6 

CVMNT 

7 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

n 

ALL 

12 

ALL 

13 

ALL 

14 

WHFELS 

2 

WHFELS 

3 

wheels 

4 

wheels 

5 

WHEELS 

6 

wheels 

7 

WHFELS 

B 

WHEELS 

9 

WHEELS 

10 

WHEELS 

II 

WHEELS 

12 

WHEELS 

13 

WHEELS 

14 

wheels 

15 

wheels 

16 

wheels 

17 

wheels 

19 

WHFELS 

19 

WHEELS 

20 

CVMNT 

10 

CVMNT 

11 

CVMNT 

12 

CVMNT 

13 

CVMNT 

14 

CVMNT 

15 

CVMNT 

16 

CVMNT 

17 

CVMNT 

18 

CVMNT 

19 

CVMNT 

20 

CVMNT 

21 

CVMNT 

22 

CVMNT 

23 

CVMNT 

24 

CVMNT 

25 

CVMNT 

26 

VI-76 
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CVMNT 


OOCOOS 

000007 

000011 

000012 

000013 

000014 

000015 


000015 

000022 

000024 

000025 

000026 

000027 

000030 

000032 


000034 

000035 

000036 

000036 

000040 


C 

C 


c 

c 


c 

c 

c 

c 


IFIGDJM  .FO.  0.)  GO JM*0 • 
IFIGOTM  .EO.  0.)  GOTMal. 
Ifl£T=GDTC 
INI T  c  ) 

IF  (NEEOIN  ,EO.  0)  GO  TO  999 
NEFDIN  =  0 
GO  TO  200 


NORMAL  FNTRY 

ENTRY  fVRRP 

IF  UNIT  ,EO.  1)  GO  TO  200 
NFFOIn  =  1 
GO  TO  10 

IS  MAINTENANCE  IN  PROGRESS 

200  IF  (MMNT.NF.fl)  GOTO  400 

IFIMFLAG  .NF.  0)  GO  TO  999 

IS  MAINTENANCE  REQUIRED 

TRET  =  TPFT  -  OT 

IF  (TRET  .GT.  0.)  GO  TO  999 

OOFS  ANY  OTHER  SITUATION  EXIST  SUCH  THAT  MAINTENANCE  SHOULD 
NOT  BE  PFRMITTEO.  IF  SO.  GO  TO  999 

ACCUMULATING  DOWN  TIME 
LMMNT=1 
LMFLAG=i 
GO  TO  999 


C 

400  TMNT  =  TMNT  «  OT 
OMHTIM=OMHTlM»OT 


UPDATE  PROGRESS  OF  MAINTENANCE 


IS  MAINTENANCE  COMPLETED 
IF  (TMNT  .LT.  GOTM)  GO  TO  999 
DJMGP  =  DJMGP  .  GOJM 
TRET  =  GDTC 
TMNT  c  0. 

LMMNT=0 
LMFLAG«0 
999  PFTURN 

NOTE  —  CHECK  TESTING  OF  MFLAG  IN  RELATED  SUBROUTINES 
ENO 


000042 
000844 
000046 
000047 
000047 
000050 
000051 

000052 

•FOLLOWING  VARIABLES  EQUIVALENCEO  8UT  NOT  REFERENCED 

JMETH 
XT 
XOE 
PC 


NTRAIN 

NTRUCK 

LTRAIN 

LTRUCK 

IFILD 

lifild 

IFILLO 
LNTROA 
LLTRAN 
LL  TRUK 
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CVMNT 

27 

CVMNT 

20 

CVMNT 

29 

CVMNT 

30 

CVMNT 

31 

CVMNT 

32 

CVMNT 

33 

CVMNT 

34 

CVMNT 

35 

CVMNT 

36 

CVMNT 

37 

CVMNT 

38 

CVMNT 

39 

CVMNT 

40 

CVMNT 

41 

CVMNT 

42 

CVMNT 

43 

CVMNT 

44 

CVMNT 

45 

CVMNT 

46 

CVMNT 

47 

CVMNT 

40 

CVMNT 

49 

CVMNT 

50 

CVMNT 

51 

CVMNT 

52 

CVMNT 

53 

CVMNT 

54 

CVMN 

55 

CVMNT 

56 

CVMNT 

57 

CVMNT 

58 

CVMNT 

59 

CVMNT 

60 

CVMNT 

61 

CVMNT 

62 

CVMNT 

63 

CVMNT 

64 

CVMNT 

65 

VI-77 
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CVNNT 
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lntran 

lntruk 

TCCV 

TMCV 

MFLAGC 

0  JMMH 

LMFLAC 

JMOVE 

1METH 

XE 

PR 

NVEMCL 

LVtMCL 

NTOA 

LLVHCL 

LNVHCL 


T 

I 


L 


SUBROUTINE  RAILHL 


n 

I 

H 

I 

n 

ii 

I 

I 

I! 

i 
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SUBROUTINE  RAILHL 

c 

C  ELEMENT  -  MATERIALS  handling 

c  GENERAL  PROCESS  -CONVENTIONAL  RAIL  SYSTEM 

c  ACTIVITY  -  LONG  HAUL  MUCK  TRANSPORT  (INCl'JOES  RETURN  ANO 

C  TPAEEIC  OELAYO) 

c  TECHNIQUE  -  TRACKS-DOUP.r  OR  SINGLE  WITH  CALIFORNIA  SWITCHES 

C  ORIVE  -  OI_SEL  OR  ELECTRIC  LOCOMOTIVE 

C 

C  INSERT  COMMON 

000002  COMMON  /WHEELS/  AF.AE. /max. ahakL.AMInL.BSL.CARCAP.CP.de. or, OTAS 

1.  OTHA.DTU-EL.EC.ER.'  T.hPA.HPEA.HPEV.HPFA.MPFV.HPV.LOCO.MCML 

2.  NCAPS.  •, POINT. NTO. MM,  NTMAA.XP.NTMILP.NTMLPP.NTRACK.SL 

3.  TCl/RVX  (?0l  .TCURV  <?0)  .TMAINT.TWF.VD.VS.VE.VF.VMAX.VC.WL.  OS 

4.  HAlLO.NUMLO.LO'  t  .OUC.WUC. STATUS I3M  .WHY  (24 )  .MLT YP. WMR .ECONEO. 

5  ECONSS.ELOCO.f  aiiCKC.ETRACK.ESW I TC« EUNLOA .ERMA1N.II BORE . 

6  ISWI2S) .NTINIf. TCCV.THCV 

000002  COMMON  /OLDCOM/  I r  ILO .KSTOP  ( 2S)  .KUNLO.LSTOP . LVF.HCL  .NBYP Y .NSVCH 

1 .  NTROA.NVFHCL .NHMSWT.SWI TCHI20) «TFC (25> .TOP (2S) .T ST  AT (25. 4) 

2.  UT I UE ( ?S ) .LOApR .MUKOT.XGS. 1E»CA,hGS(5> . MCV .MFLAGC .OUMMY  (20 ) 

000002  COWHON  /NFwCOM/  L I F I LO .LKSTOP ( ?S) .LKUNLO.LLSTOP ,LL VHCL .LNBY8Y 

1.  LNSWCH.LNTROA,LNVMCL.LNMSWT.FSWTCH(20» .FTFC(?5).FT0P(?5) 

2.  FTSTAT (PS. 4  I .nil  IMF (2S) .LL0ADO.LMUK0T.FXGS.LIEXCA.LMGSI5I 

3.  LMrV.LMFLAC.F0UMMY(19» 

000002  OIMENSION  COmOLO ( 260 1  .C0MNEW(260) .LTSTAT (25.41  . I TSTAT (25.41 

000002  EQUIVALENCE  (NVEhCL  .NTRA  1N.NTRUC1. 1  .  (LVEHCL  .LTRA IN .L TRUCK ) 

1.  (COMOLO.iriLOl . (COMNEW.LIFILP.IFILLOl  . (NTOA.LNTROA) 

2.  (FTSTAT. LTSTATI.ITSTAI, ITS! AT) 

3.  (LLVHCL.LI  TRAN. LL TRUK ).(LNVHCL.LNTRAN.LNTRUK> 

000002  COMMON  /ALL  /  XT.STR. IA. ROD. CS.TAMR. FLOW, IFLAG 

1.  AT,O.E.SK,T.OT.X,PR.XMAX,TMAX.OX.OV.TPR1NT.OTPRNT,1MOVE«JMETH 

2.  T5MFT.RKP0RT . OPPCT.TO.rO  .xoiscm.ichng.xcmng.tcmng 

000002  EQUIVALENCE  ( JMOVE. IMOVE) . (IMEIH, JMETHI 

000002  COMMON/MONEV/  Jmmhm .0 JM . 0 Jmmh.0 J“RO. 0 JMBMM .OMAINT .OJMBM.OJMCS 

1.  PMOS, JMJV.OJMFP.RDPLAN.HPLANT.GSPLAN 

2.  ECoL»N.ROTIME.hTIMC(2)  .GSTIME.ECTIME 

000002  COMHON/PERFRm/  RD'iTIM.rooTIM.umhTIM.DMMTIM.GSUTIM.GSOTIM.ECUTIM 

I.  ECOT1M.GOAY.GAOV.GENO.GBEG 

000032  COMMON /LA DOR/  ROMfN(I0.2).hMEN(IO.?.2) . GSMEN U0.2) »ECHEN( 10.2) 

OOQ002  REAL  jmmhm, lo. LOR. LBIT.LBURN.L5TEEL.JMCV 

000002  OIMENSION  G<«> 

000002  EQUIVALENCE  (G.XT) . (XE.XOE) . (PR. PC) 

000002  OAT,’.  INITSW.  IRETSW  /2»0/ 

000002  OAT 4  IOPTN  /\/ 

000002  OIMENSION  KTFMP(2S) .KTRAIN (25 ) . I5TATE (25 .4) .STATEI25.4) 

1.  JST0PI2S) .TTEC(25)  .TT0PI25) 

000002  OATA  (KTEmp=2S»0) . (KTRAIN*25»0) . (STATE  mIOO‘0.) 

1.  i JST0P=2S»0) . (TTEC=?5«0.) . (TTOP»25»0.) . (V«0.) 

000002  EQUIVALENCE  (STATE. ISTATE) 

C 

C  PARAMETER  INITIALIZATION 

C 

000002  100  INITSW  *  I 

000003  HLELS  ■  SL/2. 

OOOOfi  IF  (LOCO  .EQ.  2)  GO  TO  110 


RAILHL 

2 

RAILHL 

3 

RAILHL 

4 

RAILHL 

S 

RAILHL 

6 

RAILHL 

7 

RAILHL 

8 

RAILHL 

9 

RAILHL 

10 

RAILHL 

11 

wheels 

2 

wheels 

3 

whfels 

4 

WHFELS 

5 

WHEELS 

6 

WHEELS 

7 

wheels 

8 

whfels 

9 

whfels 

10 

wheels 

II 

whfels 

12 

wheels 

13 

wheels 

14 

wheels 

15 

wheels 

16 

wheels 

17 

WHEELS 

18 

WHEELS 

19 

wheels 

20 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

11 

ALL 

12 

ALL 

13 

ALL 

14 

RAILHL 

14 

RAILHL 

15 

RAILHL 

16 

RAILHL 

17 

RAILHL 

18 

RAILHL 

19 

RAILHL 

20 

RAILHL 

21 

RAILHL 

22 

RAILHL 

23 

RAILHL 

24 

RAILHL 

25 

RAILHL 

26 
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000007 
000011 
000013 
00  00 1  A 
C00016 
000020 

000024 

000025 

000027 

000031 

000033 

000035 

000037 

000042 

000047 

000053 

000054 

000056 

000060 

000066 
000071 
000074 
000076 
C00077 
O001O1 
000102 
000103 
000106 
0001  1  1 
000114 
000123 
000126 
000131 
000132 
000134 
000135 
COO i 36 
000141 
000144 
000147 

000156 

000161 

000163 

000163 

000163 

000165 

000166 
000170 
000171 
0001 74 


RAlLHL 


RE«  VF.  RF 


IF  (FC  .EO.O.l  FC  ■  0.0455 
IF  (CP  .EQ.0.1  CP  *  0.14 
GO  TO  120 
110  FC= .746 

IF (CP  .EQ.  0.1  CP=.02 
120  IFIVE  •  VF  .GT.0.1  00  TO  200 

OPTION  2 

I0PTN  ■  2 

IF  (FT  .EO.  0.)  ET  «  0.25 
IF  (AMAX  .EQ.  0.)  AMAX  ■  9999. 

IF (EL  .EO.  0.)  EL=0.8 
MPFAC  *  EL  •  375. 

HPAFAC  =  HPFAC  •  HP  A 
GE  a  (NCAR5  •  WC1  «  W'.. 

OF  b  NCAR5  •  (WC  *  1.3S  •  CARCAP)  •  ML 
XI  =  NCARS  •  MC  «  ML 
WE  »  GE  /  XI 
WF  *  GF  /  XI 
TTEA  ■  FT  •  WL  •  2000. 

AC  =  6.65  *  (CARCAP  ••  0.39)  •  .00 
COMPUTE  VE 

Cl  *  1.3  •  (29.  /  WE) 

C2  «  AC  /  (WF  •  MC) 

C4  B  HPV  •  HPFAC 
RE*1  «  Cl 
RtF2  «  C2 
A  «  .045  /  C2 
8  «  Cl  /  C2 
C  1  -C4  /  (C2  •  GE) 

VE  ■  CUBIC  (A.  B.  C) 

IF  (VE  .GT.  VMAX)  VE  =  VMAX 

RE  -  GE* (Cl  •  (C2  •  VE  •  VE)  •  (.045  •  VE)  ) 

Cl  »  1.3  ♦  (29.  /  WF) 

C2  *  AC  /  (WF  •  MC) 

RFF1  «  Cl 
RFF2  b  C2 
A  =  .045  /  C2 
B  *  Cl  /  C2 
C  *  -C4  /  (C2  •  GF) 

VF  »  CUBIC  (A.B.C  ) 

IF  (VF  .GT.  VMAX)  VF 
RF  *  GF  •  (Cl  ♦  (C2  • 


MPEV  b  (RE»VF)  /  HPFAC 
HPFV  b  (RF*VF)  /  HPFAC 
GO  TO  250 

200  CONTINUE 

MPEAH  B  mpea 
HPFAH  b  HPFA 


b  VMAX 

VF  •  VF)  ♦  (.045  •  VF)  ) 
COMPUTE  HPEV.HPFV 


OPTION  1 


BOTH  OPTIONS 


250  DINCR=150. 

VWRK  b  VO 

IF  (VS  .GT.  VO)  VWRK  b  VS 
XWRK  m  2640.  •  (VF  •  VF  -  VWRK 


•  VWRK)  /  Df 


RAILHL 

27 

RAILHL 

28 

RAILHL 

29 

RAILHL 

30 

RAILHL 

31 

RAILHL 

32 

RAILHL 

33 

RAILHL 

34 

RAILHL 

35 

RAILHL 

36 

RAILHL 

37 

RAILHL 

38 

RAILHL 

39 

RAILHL 

40 

RAILHL 

41 

RAILHL 

42 

RAILHL 

43 

RAILHL 

44 

RAILHL 

45 

RAILHL 

46 

RAILHL 

47 

RAILHL 

48 

RAILHL 

49 

RAILHL 

50 

RAILHL 

51 

RAILHL 

52 

RAILHL 

53 

RAILHL 

54 

RAILHL 

55 

RAILHL 

56 

RAILHL 

57 

RAILHL 

58 

RAILHL 

59 

RAILHL 

60 

RAILHL 

61 

RAILHL 

62 

RAILHL 

63 

RAILHL 

64 

RAILHL 

65 

RAILHL 

66 

RAILHL 

67 

RAILHL 

68 

RAILHL 

69 

RAILHL 

70 

RAILHL 

71 

RAILHL 

72 

RAILHL 

73 

RAILHL 

74 

RAILHL 

75 

RAILHL 

76 

RAILHL 

77 

RAILHL 

78 

RAILHL 

79 

RAILHL 

80 

RAILHL 

81 
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000200 

IF  ( XWRK  .UT.  OINCR)  OINCR  *  XWRK 

RAILHL 

82 

000?03 

XVRK  *  2640.  •  (VF  •  VE  -  VS  •  VS)  /  OE 

RAILHL 

83 

000207 

IF  (XwRK  .l_T.  OINCR)  OINCR  *  XNRK 

RAILHL 

84 

000212 

OFLMAX  =  OINCR  /  (5260.  •  VE) 

RAILHL 

8S 

000214 

IF  (NTRACK  .FO.  2)  NUMSMT  ■  1 

RAILHL 

86 

000217 

CPFC  *  CP  •  FC 

RAILHL 

87 

000221 

SNHPE  »  HPFV  •  VS  /  VE 

RAILHL 

88 

000224 

SWMPF  •  HPFV  •  VS  /  VF 

RAILHL 

89 

000226 

PRINT  260.  VF.VF.RE.RF .GE.GF .HPEV.HPFV 

RAILHL 

90 

000252 

260 

FORMAT (23H0RAII  PARAMETERS  -  VE. 7X .2HVF . 7X . 2HRE* 7X.2HRF.7X . 

RAILHL 

91 

. 

•  2HGE • 7X « 2HGF .6X.4HHPEV.5X .4HHPFV/1 7X .8 (F8 .3. IX)  > 

RAILHL 

92 

000252 

0UC=CARCAP»NCARS»27. 

RAILHL 

93 

000255 

WUC=QUC«.0S 

RAILHL 

94 

000257 

PRINT  261.  OUC.  NUC 

RAILHL 

9S 

000266 

261 

FORMAT  ( 1 6H0  TRAIN  CAPACITY  ■  F10. 4.  17H  CUBIC  FEET  AND 

RAILHL 

96 

1 

1  F10. 4,  5H  TONS) 

RAILHL 

97 

c 

NAS  CALL  FOR  INITIALIZATION  ONLY 

RAILHL 

98 

000266 

IF  (IRETSN)  270. 999.  270 

RAILHL 

99 

000267 

270 

IRETSW  *  0 

RAILHL 

100 

000270 

GO  TO  350 

RAILHL 

101 

c 

RAILHL 

102 

c 

UPOATE  TRAIN  STATUS  MATRIX 

RAILHL 

103 

c 

RAILHL 

104 

000271 

ENTRY  RAILTR 

RAILHL 

105 

c 

HAS  INITIALIZATION  BEEN  PERFORMED 

RAILHL 

106 

000276 

IF  (IN1TSW)  350.320.350 

RAILHL 

107 

000277 

320 

IRfTSN  *  1 

RAILHL 

108 

000300 

GO  TO  100 

RAILHL 

(09 

000301 

350 

NITER=OT /oflmax 

RAILHL 

110 

000304 

TFRAC»OT-N1TFR»OELMAX 

RAILHL 

ill 

c 

RAILHL 

112 

c 

COMPUTING  LABOR  TIME  USEO  FOR  THIS  ACTIVITY 

RAILHL 

113 

c 

RAILHL 

114 

000307 

HTTME(l)=HTIME(l)*OT 

RAILHL 

115 

000310 

IFIMFLAGC  .NE.  0)  GO  TO  351 

RAILHL 

116 

000311 

IFINIJMLO  .EO.  0)  GO  TO  352 

RAILHL 

JIT 

000312 

IFUIRORE  .NE.  0)  GO  TO  351 

RAILHL 

119 

c 

RAILHL 

119 

c 

COMPUTING  UP  TIME 

RAILHL 

120 

c 

RAILHL 

121 

000313 

UMHT1M*UMHTIH»0T 

RAILHL 

122 

c 

RAILHL 

123 

c 

COMPUTING  PLANT  ANO  EQUIPMENT  COSTS 

RAILHL 

124 

c 

RAILHL 

125 

000315 

351 

CONTINUE 

RAILHL 

126 

000315 

HPLANT=HPL»NT»OT» (NTRAIN»ELOCO»NTRAIN«NCARS*EMUCKC>» 

RAILHL 

127 

10X»(ET9ACK.NS»ES«1TC.EUNL0A. ERMA  INI 

RAILHL 

128 

000333 

GO  TO  353 

RAILHL 

129 

c 

RAILHL 

130 

c 

COMPUTING  DOVN  TIME  / 

RAILHL 

131 

c 

RAILHL 

132 

000334 

352 

OMHTIM*OMHTIM»OT 

RAILHL 

133 

000336 

3S3 

continue 

RAILHL 

134 

c 

RETRIEVE  /OLDNRK/  VARIABLES 

RAILHL 

135 

000336 

00  355  J»1 .NTRAIN 

RAILHL 

136 
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RAILHL 
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000340 

ISTATF(Jtl)  =  ITSTATIJ.l) 

RAILHL 

137 

000342 

ST  ATE ( J.21  =  TST  AT  (J.2) 

railhl 

138 

000345 

ST  ATE ( J. 3)  =  T  ST  AT (J.3) 

pailhl 

139 

000347 

ST  ATE ( J.4)  *  TSTAT  <J«4> 

RAILHL 

140 

000351 

JSTOP(J)  x  K5T0P<J) 

RAILHL 

141 

000353 

TTFC ( J)  x  TFC  < J> 

RAILHL 

142 

000355 

TT0PIJ1  =  TOP  < J1 

RAILHL 

143 

000357 

355 

CONTINUE 

RAILHL 

144 

000361 

ISTOP  x  LSTOP 

railhl 

145 

000362 

360 

LLTRAN  x  0 

RAILHL 

146 

000363 

lpetpn  *  0 

pailhl 

147 

000364 

DFLTAT  *  OFLMAX 

railhl 

148 

000365 

IF  (N 1  TEP.NE.O)  GOTO  362 

RAILHL 

149 

000366 

DELTAT*TFPAC 

RAILHL 

150 

000370 

362 

continue 

railhl 

151 

000370 

LOUE=100 

RAILHL 

152 

000371 

00  364  ITP=1 . NTPAIN 

RAILHL 

153 

000373 

IF  (ISTATE(ITR.l).NE.O)  GOTO  364 

RAILHL 

154 

000375 

IF  (JSTOP<ITP).GT.100)  LOUE*LOUE*l 

railhl 

15S 

000401 

364 

continue 

railhl 

156 

000404 

IBPNCM  *  ISTOP  ♦  1 

railhl 

157 

000406 

GO  TO  (500.400.450)  IBPNCH 

railhl 

158 

c 

SYSTEM  MUST  BE  SHUT  DOWN 

RAILHL 

159 

000414 

400 

DO  420  J= 1 .NTRA IN 

RAILHL 

160 

000416 

IF  (JSTOP(J)  ,NE.  0)  GO  TO  420 

PAILHL 

161 

030420 

IW9K  =  1STATE  < J.  1 1 

PAILHL 

162 

00C421 

IF  { <  1  wPK- 1 0 )  •  < 1 WPK— 11)  .EO.  0)  GO  TO  420 

PAILHL 

163 

000426 

JSTOP(J)  x  4 

PAILHL 

164 

005430 

IF  <  ( IWPK-6)*  < IWRK-7)  .EO.  0)  GO  TO  420 

railhl 

165 

000435 

JWPK  x  ( IWPK  •  1)  /  2 

RAILHL 

166 

000437 

IW9K  c  IMRK  /  2 

RAILHL 

1 67 

000441 

IS  =  7 

RAILHL 

168 

000442 

IF  (IWPK  .EO.  JWPK)  IS  «  6 

RAILHL 

169 

000445 

ISTATE(J.l)  x  IS 

PAILHL 

170 

000447 

420 

CONTINUE 

PAILHL 

171 

000452 

GOTO  500 

RAILHL 

172 

c 

SYSTEM  MUST  BE  BROUGHT  UP 

RAILHL 

173 

000452 

450 

00  470  J=l. NTPAIN 

PAILHL 

174 

000454 

IF  (JSTOP(J)  ,NE.  4)  GO  TO  470 

RAILHL 

175 

000457 

JSTOPIJI  x  0 

RAILHL 

176 

000460 

JWPK  c  1ST  ATE  <  Jt  I  ) 

PAILHL 

177 

000461 

IF  (JWPK  .EO.  0)  1ST  ATE  ( J.  1  )  ■  2 

RAILHL 

178 

000464 

TF  (JWPK  .EO.  I)  1ST  ATE ( J. 1 )  ■  3 

RAILHL 

179 

000470 

470 

CONTINUE 

RAILHL 

180 

000473 

475 

ISTOP  x  0 

RAILHL 

181 

c 

APPLY  DELTA-T  TO  ALL  TRAINS 

pailhl 

182 

000474 

SOO 

DO  750  I  =  l.NTRAIN 

PAILHL 

183 

000476 

DELTAC  =  0. 

RAILHL 

184 

000477 

STATEd.41  x  STATE  ( I  *4)  ♦  (OELTAT  /  24.) 

RAILHL 

185 

000502 

ISTAT  x  1ST  ATE  < I . 1  ) 

RAILHL 

186 

030504 

TPOS  x  ST  ATE ( I »2 ) 

RAILHL 

187 

C00506 

TSPO  »  ST  ATE ( I »  3) 

RAILHL 

188 

000507 

IKTENP  x  KTEMP(I) 

RAILHL 

189 

000511 

IJSTOP  *  JSTDP(I) 

RAILHL 

190 

000512 

IISW  x  ISW(I) 

RAILHL 

191 

VI-82 


GOUT* 

FORTRAN 

1.3  •  AUTO  RFL  •  (07-12-72)  RAILHL 

07/25/72 

0*05 1 4 

5WP05  ^  0 

RAILHL 

192 

••0515 

IF  Utsw  ,GT.  0)  SWPOS  ■  SWITCH  { T  7540 

RAILHL 

193 

••0520 

IB9NCH  a  ISTAT  ♦  1 

RAILHL 

}  94 

•••522 

GO  TO  (StO. 530. 550.570*590.610, 630. 650*670* 690.700.700)  IBRNCH 

RAILHL 

195 

C 

TRAIN  is  EMPTY.  AND  HAS  STOPPEO 

RAILHL 

196 

•00541 

510 

IF  (IJSTOP.GT.lOO)  GOTO  511 

RAILHL 

197 

•••545 

GOTO  (S14.S16.S20. 1000. 1000 .600)  IJ5T0P 

RAILHL 

198 

C 

TRAIN  IS  IN  LOAD  QUEUE 

RAILHL 

199 

•••556 

511 

CONTINUE 

RAILHL 

200 

•••556 

GOTO  699 

PAILHL 

201 

C 

TRAIN  tS  BEING  LOAOEO 

RAILHL 

202 

•••557 

514 

LLTRANal 

RAILHL 

203 

0(0S6I 

GOTO  698 

RAILHL 

204 

c 

TRAIN  IN  SWITCH.  WITH  ANOTHER  STOPPEO  AHEAD 

RAILHL 

205 

000561 

516 

IF ( I ST  ATE ( IK  TEMP. 1 1  .EO.  0)  GO  TO  700 

RAILHL 

206 

0*0563 

TPOS  a  SWP05  -  HLFLS 

RAILHL 

207 

0*0565 

ISTAT  ■  2 

RAILHL 

208 

000566 

1KTEMP  a  0 

RAILHL 

209 

000567 

IJSTDP  a  0 

RAILHL 

210 

010570 

GO  TO  698 

RAILHL 

211 

c 

TRAIN  IN  SWITCH.  WITH  ANOTHER  APPROACHING 

RAILHL 

212 

•80570 

520 

IF  (STATE ( IKTEHP.2)  .GT.  5WP05-HLFL5)  GO  TO  TOO 

RAILHL 

213 

•••576 

LRETRN  «  1 

RAILHL 

214 

*••577 

GO  TO  636 

RAILHL 

215 

000577 

522 

ISTAT  a  2 

RAILHL 

216 

0*0600 

TPOS  a  5WP0S  •  HLFLS 

RAILHL 

217 

00(602 

1KTEMP  a  0 

RAILHL 

218 

000603 

I JSTOP  a  0 

RAILHL 

219 

•••604 

GO  TO  698 

RAILHL 

220 

c 

TRAIN  IN  1ST  SWITCH.  AWAITING  DISCHARGE 

RAILHL 

221 

0*0604 

524 

IF  (IF1LLD  .FO.  1)  GO  TO  700 

RAILHL 

222 

0*0606 

LRETRN  ■  5 

RAILHL 

223 

000607 

GOTO  662 

RAILHL 

224 

c 

TRAIN  IS  FULL  AND  STOPPEO 

RAILHL 

225 

000610 

530 

IF  ( I JSTOP .GT .5)  GOTO  1000 

RAILHL 

226 

000614 

GOTO  (1000. 536. 542. 1000. 524)  IJ5TOP 

RAILHL 

227 

c 

TRAIN  IN  SWITCH.  ANOTHER  STOPPED  AHEAD 

RAILHL 

228 

••0624 

536 

IF  (ISTATE(lKTEMP.l)  .FO.  1)  GO  TO  700 

RAILHL 

229 

•••627 

LRETRN  ■  3 

RAILHL 

730 

000630 

GO  TO  662 

PAILHL 

231 

c 

TRAIN  IN  SWITCH.  ANOTHER  APPROACHING 

RAILHL 

232 

000630 

542 

lFtSTATEIlFTFMP.H)  .IT.  SWP05-HLELS)  GO  TO  700 

RAILHL 

233 

000635 

LRETRN  •  5 

RAILHL 

234 

000636 

GO  TO  656 

RAILHL 

235 

c 

TRAIN  IS  ACCELERATING  ENPTY 

RAILHL 

236 

*00637 

S50 

IF  (IOPTN  -  ))  584.553.594 

RAILHL 

237 

000642 

551 

RE  =  GE  •  (RfFl  •  (TSPO»(REF2«T5PO. 0.045))) 

RAILHL 

238 

000650 

AFA  a  TEA  -  RE 

RAILHL 

239 

000652 

IF  (AFA  .LT.  0.)  AFA  a  0. 

RAILHL 

240 

000654 

AE  ■  39.4  •  AFA  /  GE 

RAILHL 

241 

0006S7 

IF  UMAX  .LT.  AE)  AE  ■  AMAX 

RAILHL 

242 

•00662 

5S3 

Y1  »  AE  •  oeltat 

RAILHL 

243 

*•0664 

TPOS  a  TP05»0ELTATa( <2640. *71). (5280. »T5P0)) 

RAILHL 

244 

*0*672 

T5P0  »  TSPO  •  YI 

RAILHL 

24S 

••0673 

IF  (IOPTN. EO. 2)  HPEAHa  (AE  •  GE/39.4  »RE)  •  (T5P0/HPFAC) 

RAILHL 

246 
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000703 

000713 

000714 

000717 

000720 

000722 

000724 

000730 

000731 

0C0736 

000741 

000742 

000743 

000744 

000747 

000750 

000750 

C00753 

000761 

000763 

000765 

000770 

000773 

000775 

001002 

001034 

001014 

001024 

001025 

001030 

001031 

091033 

001035 

001037 

001043 

001044 

001051 

001054 

001055 

001056 

001057 

001062 

001063 

001070 

001073 

001074 

001075 

CO  1 075 
001077 
001100 
001101 
001103 
001104 


IF  (HPA  ,GT.  0.  .AND.  HPEAH  .GT.  HPA)  HPEAH  ■  HP A 
OELTAC  =  HD£AH 
IF  (TSPO  -  VE1  558*554.554 
554  I  ST AT  *  4 
TSPO  *  VE 

558  00  562  J*1.NU«SWT 

A  *  SWITCH(J)  -  HLFLS  -  TPOS 

IF  (A  .LT.  0.)  GO  TO  562 

B  «  2640.  •  ( (TSPO*TSPO)- (VS#V5) )  /  OE 

IF  (A  .GT.  Bi  GO  TO  562 

ISTAT  *  6 

IISW  *  J 

GO  TO  69* 

562  CONTINUE 
IISW  -  0 
GO  TO  698 

TRAIN  15  ACCELERATING  FULL 

570  IF  (IOPTN  -  1)  584*572.584 

571  RF  *  GF  •  (RFF1  *  (TSPO  *  (RFF2»TSPD  «  0.045)1) 

AFA  =  TEA  -  PF 

IF  (AFA  .LT.  0.)  AFA  ■  0. 

AF  »  39.4  •  AFA  /  GF 
IF  (AMAX  .LT.  AF)  AF  ■  AMAX 

572  Y)  *  AF  •  OELTAT 

TPOS  =  TPOS  -  OELTAT*  ( ( 5280. *TSPO )♦ (2640  •* VI ) ) 

TSPO  *  TSPO  ♦  Y1 

IF  (IOPTN. EO. 2)  HPFAH=  (AF»GF/39.4  ♦  RF)  *  (TSPO/HPFAC) 
IF  (HPA  .GT.  0.  .ANO.  HPFAH  .GT.  HPA)  HPFAM  ■  HPA 
OELTAC  “  HPFAH 
IF  (TSPO  -  VF)  578.574,574 
574  ISTAT  «  5 
TSPO  *  VF 

578  IF (NTRACK  .EO.  21  GO  TO  5*3 
00  5*2  J=l.NuMSWT 
A  *  TPOS  -  (SWITCH(J)  •  HLFL5) 

IF  (A  .LT.  0.)  GO  TO  582 
B  -  2640.  *  I(TSPD»TSP0)-(VS»V5)>  /  OF 
IF  (A  .GT.  B)  GO  TO  5*2 
ISTAT  *  7 


IISW  *  J 
GO  TO  698 

582  CONTINUE 

583  IISW  *  0 

B  »  2640.  •  <<TSPO»TSPO)-(VO»VO)>  /  OF 

IF  (TPOS  .GT.  8)  GO  TO  698 

ISTAT  *  7 

IISW  *  100 

GO  TO  698 

FINO  TEA 

584  TEA  *  TTE* 

IF  (HPA  .EO.  0.)  GO  TO  585 
Y1  *  TEA 

IF  (TSPO  .NE.  0.)  VI  ■  HPAF AC/TSPD 
GO  TO  589 

585  IF  (TSPO  .GT.  TCURVX(ll)  GO  TO  586 


RAILHL 
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RAILHL 
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RAILHL 
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RAILHL 
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RAILHL 
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RAILHL 
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RAILHL 

253 

RAILHL 
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RAILHL 

25S 

RAILHL 

256 

RAILHL 
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RAILHL 
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RAILHL 
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RAILHL 

260 

RAILHL 

261 

RAILHL 

262 

RAILHL 

263 

RAILHL 

264 

RAILHL 

265 

RAILHL 

266 

RAILHL 

267 

RAILHL 

268 

RAILHL 

269 

RAILHL 

270 

RAILHL 

271 

RAILHL 

272 

RAILHL 

273 

RAILHL 

274 

RAILHL 

275 

RAILHL 

276 

RAILHL 

277 

RAILHL 

278 

RAILHL 

279 

RAILHL 

280 

RAILHL 

2*1 

RAILHL 

2*2 

RAILHL 

283 

RAILHL 

284 

RAILHL 

285 

RAILHL 

286 

RAILHL 

287 

RAILHL 

288 

RAILHL 

289 

RAILHL 

290 

RAILHL 

291 

RAILHL 

292 

RAILHL 

293 

RAILHL 

294 

RAILHL 

295 

RAILHL 

296 

RAILHL 

297 

RAILHL 

298 

RAILHL 

299 

RAILHL 

300 

RAILHL 

301 

VI-84 
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001110 

Y1  *  T CURVY ( 1 ) 

railhl 

302 

001111 

GO  TO  589 

RAILHL 

303 

001111 

586 

DO  588  K  «  2.NP0INT 

RAILHL 

304 

001113 

XWRK  *  TCURVX(K) 

RAILHL 

305 

001115 

IF(XWRK  ,LT.  TSPO)  GO  TO  588 

railhl 

306 

001117 

ywrk  =  tcurvyoo 

RAILHL 

307 

001121 

Y 1  =  YWRK- ( ( XWRK -TSPO) • ( YWRK-TCURVY (K»l ) ) /( XWRK-TCURVX (K-l ) ) ) 

RAILHL 

308 

001131 

GO  TO  589 

RAILHL 

309 

00113! 

508 

CONTINUE 

railhl 

310 

001134 

Y 1  *  T CURVY (NPOINT ) 

RAILHL 

311 

001135 

S89 

CONTINUE 

RAILHL 

312 

001135 

IE  (vi  ,LT.  TEA)  TEA  =  Y1 

RAILHL 

313 

001  140 

IF  (ISTAT  -  2)  S71.5S1.S71 

RAILHL 

314 

C 

TRAIN  EMPTY.  GOING  AT  FULL  SPEED 

railhl 

315 

001143 

590 

TPOS  =  TPOS  •  (5280 •  •  VE  •  OELTAT) 

railhl 

316 

001147 

OriTAC  =  HPEV 

RAILHL 

317 

001 150 

GOTO  554 

RAILHL 

318 

C 

TRAIN  IN  SWITCH.  WAITING  TO  ENTER  LOAO 

AREA  RAILHL 

319 

001150 

600 

IF  (NUMLO.GE.MAXLO)  GOTO  700 

RAILHL 

320 

001153 

LRETRN*1 

railhl 

321 

0011S4 

GOTO  643 

railhl 

322 

C 

TRAIN  FULL.  GOING  AT  FULL  SPEED 

RAILHL 

323 

001154 

610 

TP05  =  TP05  -  (5280.  •  VF  •  OELTAT) 

railhl 

324 

001160 

OELTAC  *  HPFV 

RAILHL 

325 

001161 

GOTO  574 

RAILHL 

326 

C 

TRAIN  IS  DECELERATING  EMPTY 

RAILHL 

327 

001161 

630 

Y1  -  OE  •  OELTAT 

RAILHL 

328 

001163 

TPOS  =  TP05  .  OELTAT  •  ( (5280 . ‘TSPO) -( 2640. »Y1 ) ) 

RAILHL 

329 

001170 

TSPO  =  T5P0  -  Y 1 

RAILHL 

330 

001172 

IF  (T5PO  ,GT.  0.)  GO  TO  634 

RAILHL 

331 

00117A 

ISTAT  =  0 

RAILHL 

332 

00117a 

TPOS*SWITCH( I ISW) 

RAILHL 

333 

001176 

TS»0  =  0. 

RAILHL 

334 

001177 

IF  (IJSTOP.NF.O)  GOTO  698 

RAILHL 

335 

001200 

LPETRNvl 

RAILHL 

336 

001201 

GOTO  6636 

railhl 

337 

001201 

634 

IF  (ISTOP  .EO.  1)  GO  TO  698 

railhl 

338 

001203 

IF  (IISW  .FQ.  0)  GO  TO  698 

railhl 

339 

001204 

IF  (TSPO  ,f,T.  VS)  GO  TO  648 

railhl 

340 

001210 

636 

IF  ( 1 15W- (NUMSWT-l ) )  638.  6636.6636 

RAILHL 

341 

001213 

6636 

LQUE*LQUE « 1 

RAILHL 

342 

001215 

NUMl  0  =  L0UE-99 

RAILHL 

343 

001217 

IF  (Numn.LE.MAXLO)  GOTO  627 

RAILHL 

344 

001221 

PRINT  6637 

railhl 

345 

001225 

6637 

FORMAT  ( 30H0  TOO  MANY  TRAINS  AT  THE  FACE  > 

railhl 

346 

001225 

CALL  EXIT 

RAILHL 

347 

001226 

627 

CONTINUE 

RAILHL 

348 

001226 

I JSTOPxLOUF 

RAILHL 

349 

001230 

GOTO  648 

RAILHL 

350 

001230 

637 

IJST0P.6 

railhl 

351 

001231 

IKTEmp.O 

RAILHL 

352 

00 1 ’32 

GOTO  648 

railhl 

353 

OU 1 233 

6638 

IF  (NIJMIO-MAXLO)  643.637,637 

railhl 

354 

001236 

618 

XI  *  SWITCH! I I5W  .  1) 

RAILHL 

355 

001240 

RMAX  ■  XI  .  HLFLS 

railhl 

356 
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0012*2 

0012*3 

0012*5 

0012*6 

001250 

001253 

001255 

001257 

001262 

001263 

00126* 

00126* 

001266 

001267 

001270 

001270 

001272 

00127* 

001275 

001275 

001302 

001303 

00130* 

001307 

001307 

001312 

00131* 

001316 

001317 

001321 

00132* 

001326 

001330 

0013** 

0013*5 

0013*6 

0013*6 

001351 

001353 

00135* 

00135* 

001357 

001361 

001362 

001363 

00136* 

001165 

001365 

001367 

001370 

001371 

001372 

001373 

001376 


RMIN  *  XI  -  HLFLS 
0O  6*2  K=1,NTRAIN 
IF  (I  .FQ«  K>  GO  TO  6*2 
*1  *  STATFIK.2) 

IF  (XI  .GT.  RHAXI  GO  TO  6*2 
IF  (XI  .LT.  RM  INI  GO  TO  6*2 
IWRK  c  ISTATE(K.tl  ... 

IF  (IWRK  •  (IWRK-61  .NE.  0)  GO  TO  639 
IKTEMP  *  K 
I J5TOP  =  2 
GO  TO  6*8 

639  IF  ( I WRK  .NE.  8)  GO  TO  6*0 
IKTEMP  =  0 
IJSTOP  *  0 
GO  TO  6*2 

6*0  I F  (IWRK  .NE.  91  GO  TO  6*1 
IKTEMP  *  K 
IJSTOP  *  3 

6*1  IF  dIWRK-I)  •  (IWRK-71  .NE.  01  GO  TO  6*2 
IKTEMP  *  0 
IJSTOP  *  0 
6*2  CONTINUE 
6*3  CONTINUE 

R«AX  =  SWITCH (I ISW  *  11  -  HLFLS 

RMIN  e  SWITCHdISWl  ♦  HLELS 

00  6*6  Kd.NTRAIN 

IF  (I  .EO.  M  GO  TO  6*6 

XI  *  ST  ATE (K . 2 1 

IF  (XI  .GT.  PMXX1  GO  TO  6*6 

IF  (XI  .LT.  RMIN1  GO  TO  6*6 

IWRK  =  ISTATE(K.I1  _  ,«  ... 

IF ((IWRK-I1»(IURK-31*(IWRK-S1*< IWRK-71  .NE.  0)  GO  TO  6** 

IKTEMP  =  K 
IJSTOP  *  3 

GO  TO  6*8  «... 

6**  IF  (IwPK  •  (IWRK  -61  .NE.  01  GO  TO  6*6 
IKTEMP  S  K 
IJSTOP  =  2 
GO  TO  6*8 
6*6  CONTINUE 

IF  (LRETRN  .FQ.  II  GO  TO  522 

1ST  AT  =  8 

TS»0  =  VS 

IKTEMP  *  0 

IJSTOP  *  0 

GO  TO  698 

6*8  IF  (LRETRN  ,FO.  11  GO  TO  6*9 
ISTAT  *  6 
GO  TO  698 
6*9  ISTAT  *  0 


C 


GO  TO  698 
650  IF ( JSTOP ( T 1 


TRAIN  IS  DECELERATING  FULL 
.NE.  5)  GO  TO  65? 


lretrn*5 
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RAILHL 
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RAILHL 

35S 

RAILHL 

360 

RAILHL 
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RAILHL 
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RAILHL 
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railhl 

36* 

RAILHL 

365 

RAILHL 

366 

RAILHL 
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railhl 

368 

RAILHL 

369 

RAILHL 

370 

RAILHL 

371 

RAILHL 

372 

RAILHL 

373 

RAILHL 

37* 

railhl 

375 

RAILHL 

376 

RAILHL 

377 

RAILHL 

378 

RAILHL 

379 

railhl 

380 

RAILHL 

381 

RAILHL 

382 

RAILHL 

383 

RAILHL 

3B* 

RAILHL 

385 

RAILHL 

386 

RAILHL 

3«7 

railhl 

388 

RAILHL 

389 

RAILHL 

390 

RAILHL 

391 

railhl 

392 

RAILHL 

393 

RAILHL 

39* 

RAILHL 

395 

RAILHL 

396 

RAILHL 

397 

RAILHL 

398 

RAILHL 

399 

RAILHL 

*00 

railhl 

*01 

RAILHL 

*02 

railhl 

*03 

railhl 

*0* 

RAILHL 

*05 

RAILHL 

*06 

RAILHL 

*07 

RAILHL 

*08 

railhl 

*09 

railhl 

*10 

RAILHL 

*11 

VI-86 
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001377 

GO  TO  656 

RAILHL 

A 1 2 

001377 

652 

VI -OF  *OFl T  AT 

RAILHL 

413 

001401 

TPOS  =  TPOS  .  OELTAT  •  ( (2640. «Y1 1-15200. «TSP01 1 

RAILHL 

414 

001407 

1 SPO  e  TSPO  -  Y 1 

RAILHL 

415 

001410 

IF  (ISTOP  .EG.  11  GO  TO  600 

RAILHL 

416 

001412 

IMII5W  .FO.  1001  GO  TO  653 

RAILHL 

417 

001414 

IF  (TSPO  .OT.  0.1GO  TO  651 

RAILHL 

410 

001416 

15TAT  i  1 

RAILHL 

419 

001417 

TSPO  r  0 

RAILHL 

420 

001417 

GO  TO  609 

RAILHL 

421 

001420 

651 

IF  ( 1 1 SW  .FO.  01  GO  TO  600 

RAILHL 

422 

001421 

IFtTSPO  .GT.  VS1  GO  TO  666 

RAILHL 

423 

001425 

GO  TO  656 

RAILHL 

424 

001425 

653 

IFIT5PO  .LF.  0.1  TPOS=0. 

RAILHL 

425 

001430 

IFtTPOS  .GT.  0.1  GO  TO  666 

RAILHL 

426 

001433 

I5TAT  =  10 

RAILHL 

427 

001434 

TPOS  =  0 

RAILHL 

420 

001434 

TSPO  «  VO 

RA ILHL 

429 

001436 

NTOA  =  NTOA  4  1 

RAILHL 

430 

001437 

IF  (NTOA  .GE.  NTOl  IFILLO  ■  I 

RAILHL 

431 

001442 

GO  TO  699 

RAILHL 

432 

001443 

656 

IF  (I1SW  .NF.  11  GO  TO  650 

RAILHL 

433 

001445 

IF ( IFILLO  .Nf.  11  GO  TO  650 

RAILHL 

434 

001447 

IJSTOP  i  5 

RAILHL 

435 

001450 

I kTFmp  *  o 

RAILHL 

4  36 

001451 

GO  TO  666 

RAILHL 

437 

001451 

65S 

IF  (IISW  .LF.  11  GO  TO  662 

RAILHL 

430 

001454 

XI  =  SWITCH (IISW  -  11 

RAILHL 

439 

001455 

PM  A  X  =  XI  4  HLFLS 

RAILHL 

440 

001457 

PM  IN  s  XI  -  HLFLS 

RAILHL 

441 

001460 

00  66(1  K=1.NTRAIN 

RAILHL 

442 

001462 

IF  (I  .FO.  HI  GO  TO  660 

RAILHL 

443 

001463 

XI  =  STATFIK.21 

RAILHL 

444 

001465 

IF  ( *  1  .GT.  PMAX1  GO  TO  660 

RAILHL 

445 

001470 

IF  (XI  ,LT.  PMINI  GO  TO  660 

RAILHL 

446 

001472 

I WOK  x  I5TATFIK.il 

RAILHL 

447 

001474 

IF  (  <IWRK-11»UWPK-71  .NE.  01  GO  TO  6504 

RAILHL 

440 

001501 

JHTFMP  j  K 

RAILHL 

449 

001502 

IJSTOP  =  2 

RAILHL 

450 

001503 

GO  TO  666 

RAILHL 

451 

001504 

6504 

I F  ( I  WR<  .NE.  91  GO  TO  6506 

RAILHL 

452 

001506 

IHTFmp  a  0 

RAILHL 

453 

001507 

IJSTOP  =  0 

RAILHL 

454 

001510 

GO  TO  660 

RAILHL 

455 

001510 

6506 

IF  (IwRK  ,NF.  01  GO  TO  6500 

RAILHL 

456 

001512 

IHTFMP  =  K 

RAILHL 

457 

001514 

IJSTOP  i  3 

RAILHL 

450 

001515 

GO  TO  666 

RAILHL 

459 

001515 

6500 

IF  (  1 IWRK-61MWPH  .NE.  01  GO  TO  660 

RAILHL 

460 

OOIS’O 

IHTFhp  *  0 

RAILHL 

461 

001521 

IJSTOP  *  0 

RAILHL 

462 

001522 

660 

CONTINUE 

RAILHL 

463 

001525 

662 

PMAX  *  SWITCH! I ISW1  -  HLFLS 

RAILHL 

464 

001530 

P-IN*0. 

RAILHL 

465 

001  j31 

IF  (IISW.NF.il  RMIN«SWI TCH ( I ISW-I 1 »HLFL5 

RAILHL 

466 

VI-87 
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RAILHL 
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001535 

001537 

001540 

001542 

001545 

001547 

001551 

001561 

001562 

001563 

001563 

001570 

001572 

001573 

001573 

001576 

001603 

001604 

001606 

001607 

001610 

001610 

C01615 

001616 

001617 

001620 

001623 

001624 

001625 

001626 

001626 

001627 

001630 

001634 

001634 

001636 

001641 

001642 

001643 

001644 
001660 
001651 
001654 
00165S 
001656 
001660 
001662 
001664 
001666 
001670 
OC 1671 
001674 
001 u  75 


00  664  K=1.NT»A1N 

IF  ( I  .FO.  K )  GO  TO  664 

Y l  *  STATF1K,?) 

IF  (V!  .GT.  OHAX1  GO  TO  664 
IF  ( Y 1  .LT.  R»<IN1  GO  TO  664 
IWRK  ■  1STATE ( Kt 1 ) 

IF  ( I WRK  •  (IWRK-2)  •  (IWRK-4)  *  UWRK-6)  ,NE. 
IKTEMP  *  X 
l JSTOP  «  3 

GO  TO  666  „  ... 

663  IF  HIWRK-ll  •  (IWRK-71  .NE.  01  GO  TO  66* 

IK  TEMP  ■  K 

I JSTOP  =  2 
GO  TO  666 

664  IF  ((LRETRN-31  •  ILRETRN-51  .EO.  01  GO  TO  6662 
ISTAT  >  9 

TS°0  =  VS 


IKTEMP  =  0 
l JSTOP  =  0 

666  IF dLRETRN-*i*<LRETRN-51  .EO.  01  GO  TO  6666 
ISTAT  ■  7 
GO  TO  698 
6662  ISTAT  ■  3 

TPOS  s  SWITCH! IlSW)  -  HLFLS 


01 


GO  TO  663 


IKTEMP  =  0 
I JSTOP  »  0 
|_RETRN«0 
GO  TO  698 
6666  ISTAT  «  1 
GO  TO  698 


670 


690 


TRAIN  EMPTY,  TRAVELING  TN  SWITCH  AT  VS 
•  VS  •  OELTAT1 


HLFLS  .LT.  0.100  TO  60S 


TPOS  «  TPOS  ♦  (5280. 

TS°0  *  VS 
DELTAC  ■  SWHPE 
IF  (TPOS  -  SWPOS 
ISTAT  ■  2 
IISW  «  0 

00  T0  699  TRAIN  TULL.  TRAVELING  IN  SWITCH  AT  VS 

TPOS  ■  TPOS  -  <5280.  •  VS  •  OELTAT) 

IF  (SWPOS  “  HLELS  ■  TPOS  .LT.  0.1  GO  TO  690 
ISTAT  ■  3 


IISW  »  0 

698  ISTATE  ( I •  1 »  ■  ISTAT 
STATE ( I *2)  ■  TPOS 
STATE (1.3)  *  TSPO 
ISW(I)  «  IISW 
KTEMP ( I  *  ■  IKTEMP 
JSTOP  ( I )  ■  I JSTOP 
OELTAC  *  DELTAC  •  CPFC  •  OELTAT 
0 JMHH  *  OJMMH  »  OELTAC 
TTFCCIl  ■  TTFC III  ♦  OELTAC 


RAILHL 

467 

RAILHL 

468 

RAILHL 

469 

RAILHL 

470 

RAILHL 

471 

RAILHL 

472 

RAILHL 

473 

RAILHL 

47* 

RAILHL 

475 

RAILHL 

476 

RAILHL 

477 

RAILHL 

478 

RAILHL 

479 

RAILHL 

480 

RAILHL 

481 

RAILHL 

482 

RAILHL 

483 

RAILHL 

48* 

RAILHL 

485 

RAILHL 

486 

RAILHL 

487 

RAILHL 

488 

RAILHL 

*89 

RAILHL 

490 

RAILHL 

491 

RAILHL 

492 

RAILHL 

493 

RAILHL 

49* 

RAILHL 

495 

RAILHL 

496 

RAILHL 

497 

RAILHL 

*98 

RAILHL 

499 

RAILHL 

500 

RAILHL 

501 

RAILHL 

502 

RAILHL 

503 

RAILHL 

50* 

RAILHL 

505 

RAILHL 

506 

RAILHL 

507 

RAILHL 

508 

RAILHL 

509 

RAILHL 

510 

RAILHL 

511 

RAILHL 

512 

RAILHL 

513 

RAILHL 

51* 

RAILHL 

515 

RAILHL 

516 

RAILHL 

517 

RAILHL 

518 

RAILHL 

519 

RAILHL 

520 

RAILHL 

521 

VI-88 


GOLETA  FORTRAN  1.3  •  AUI 0  BFL  •  (07-12-721 


RAILHL 


07/25/72 


001677  700  TTOP(I)  «  TTOP(I)  ♦  DELTA! 

001702  750  CONTINUE 

C 

C  IS  ANOTHER  ITERATION  REQUIRED  FOR  THIS  OT 

C 


001704 

NITER  *  NITER  -  1 

001706 

IF  (NITER. GE.O)  GOTO  360 

C 

UPOATE  /NEWWRK/ 

001707 

900 

DO  920  J*  l.NTPAIN 

001711 

LTSTATU.1I  *  1STATEU.11 

001713 

FTSTATIJ.21  =  STATEIJ.2I 

001716 

FTSTATIJ.3I  *  STATEIJ.31 

001720 

FTSTATU.4I  =■  STATEIJ.41 

001722 

LKSTOP(J)  *  JSTOPIJI 

001724 

FTFC(J)  =  TTFCIJ1 

001726 

FTOPIJI  t  TTOP(J) 

001730 

920 

CONTINUE 

001732 

LLSTOP  *  ISTOP 

001733 

99<* 

RETURN 

001734 

1000 

PRINT  1010 

001740 

1010 

FORMAT  (20H0IMPOSSIBLE  PATHS  1 

001740 

CALL  EXIT 

001741 

end 

•FOLLOWING  VAPURLES  EOUIVAlENCED  BUT  NOT  BEFERFNCED 

NTRUCK 

LTRAIN 

LTRUCK 

ifilo 

LIFILO 

LNTROA 

LLTRUK 

LNTRAN 

LNTRUK 

IMOVE 

JMETH 

XT 

XOE , 

PC  ' 

NVFHCL 

LVEHCL 

LLVHCL 

LNVHCL 

JMOVE 

IMETH 

XE 

PR 


RAILHL 

522 

RAILHL 

523 

RAILHL 

524 

RAILHL 

525 

RAILHL 

526 

RAILHL 

527 

RAILHL 

528 

RAILHL 

529 

RAILHL 

530 

RAILHL 

531 

RAILHL 

532 

RAILHL 

533 

RAILHL 

534 

RAILHL 

535 

RAILHL 

536 

RAILHL 

537 

RAILHL 

538 

RAILHL 

539 

RAILHL 

540 

RAILHL 

541 

RAILHL 

542 

RAILHL 

543 

RAILHL 

544 

VI-89 
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FUNCTION  CUBIC  (AtB.CI 

CUBIC 

c 

CUBIC 

c 

THIS  FUNCTION  FINOS  THE  FIRST  REAL 

ROOT  OF  A  CUBIC 

CUBIC 

c 

EOUATION  OF  FORM  X»»3  •  A*»«2 

•  BX  ♦  C  ■  0 

CUBIC 

c 

USING  CAROANAS  SOLUTION 

CUBIC 

c 

CUBIC 

000006 

P  ■  B  -  (  ( A«A|  /  3.1 

CUBIC 

000010 

Q  ■  (2.  •  ( A/31 -  (A»B/3.1  •  C 

CUBIC 

000017 

T  ■  P/3. 

CUBIC 

000021 

U  ■  0/2. 

CUBIC 

000023 

OL  ■  T»T*T  ♦  U»U 

CUBIC 

000026 

T  »  SORT (OL1 

CUBIC 

000030 

U  ■  -U 

CUBIC 

000032 

EX  ■  1./3. 

CUBIC 

000033 

BAS  =  U  ♦  T 

CUBIC 

000034 

AL  ■  I ABS (BAS1 1  ••  EX 

CUBIC 

000041 

IF  (BAS  .LT.  0.1  AL  ■  -AL 

CUBIC 

000046 

BAS  ■  U  -  T 

CUBIC 

000050 

BL  ■  (ABSfBAS! 1  ••  EX 

CUBIC 

000054 

IF  (BAS  .LT.  0.1  BL  ■  -BL 

CUBIC 

0C0057 

CUBIC  »  AL  •  BL  -  (A/3.1 

CUBIC 

000063 

RETURN 

CUBIC 

000063 

ENO 

CUBIC 
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SUBROUTINE  ADl)TRN(l) 
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000003 


000003 


400003 


000003 

000003 


000003 


000003 

000003 


000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000005 

000007 

000017 

000017 

000021 

000023 

000024 

000024 

000030 


C 

C 

c 

c 

c 

c 

c 


c 

c 


SUBROUTINE  ADOTPN  (I> 

ELEMENT  -  MATERIALS  HfiNDL I NG 

GENERAL  PROCESS  -  CONVENTIONAL  RAIL  SYSTEM 

ACTIVITY  -  TRAIN  INSERTION  INTO  SYSTEM  FROM  DISCHARGE  AREA 
(SINGLE  TRACK  SYSTEMS) 

INSERT  COMMON 

COMMON  /WHEEl  S/  »F.»E.AMAX.AM»xL.»HINL.RSL.CARCAP,CP.OE.OE*OTAS 

1.  DIHA.OTU.EL.FC.ER.ET.HPA.HPEA.HPEV.HPrA.HPFV.HPV.LOCO.MC.ML 

2,  NCARS.NPOINT.NTO.NTM.NTMAK.XP.NTMILP.NTMLPP.NTRACK.SL 

3.  TC'JSVX  (  20  I  ,  TCURVT(20)  .  T  M4 INT  .  T  WE.  VO.  VS .  VE  .  VE  .  VMAX  .  WC . XL  *  XDS 

4,  MAXLOiN'IMi  O.LOUE.GUC.VUCt  STATUS  (36)  •  WHY  (24)  .ML  TYP.WMP.ECONEO. 

5  ECONSS. ELOCO.EMUCKC.E  TRACK .ESWITC. EUNLOA. ERM A  IN. I IRORE . 

6  ISW (25) .NTINIT. (CCV.TMCV 

COMMON  /0L0COM/  IFIL0.KST0P(25)  .KIINLO.LSTOP  .  LVEHCL  .NPYRY  .NSWCH 

1,  nTROA.NVEhCL.NIIMSWT.  SWITCH  (?0)  .TEC  (25)  .TOPI2S)  .TSTATI2S.4) 

2.  UT  I  ME  (  ?S )  .1  OAOR.MIJKOT  .XGS.  IEXCA.MGS  (5)  .MCV.MT  AGC.OUMMY  (20) 
COMMON  /NEMCOM/  LIEIL0.LKST0PI25) .LKUNLO.LLSTOP.  VHCL.LNBY8Y 

1.  LNSWCH, LNTROA .LNVHCL .LNMSWT .rSMTCH (20 ) .ETEC (25) .ETOP (?S) 

2.  ETSTAT (25,4) , CUT I«E ( 25 ) .L  LOAOR .LMUKOT .EXGS.L IEXCA  .LMGS (5) 

3.  LMCV.LMEL AC.EPUMMY ( 19) 

01  MENS  TON  COMOLO (260)  .COMNEW  (260) .LTSTAT 125.4) . ITSTATI2S.4) 
EQUIVALENCE  (NVEhCL.NTRAIN.NTRUCK) , (LVEHCL. LTRA1N.LTRUCK) 

1.  (COMlLr.  ,  IE  11.0)  ,  (  COMNEW.  L  IEILO.  IFILLO)  .  ( NTOA  .LNTRDA ) 

2.  (ETSTAT. LTSTAT). (TSTAT. I TSTATI 

3.  (LLVMCI..LI  TRAN.LLTRUKI  .  (LNVHCL  .LNTRAN.LNTRUK) 

COMMON  /ALL  /  XT.SIP. IA .POO. CS.TAMR, FLOW. 1ELAG 

at.o.e.sk.t.ot.x.pr.xmax.tmax .ox.ov.tprint.dtprnt.imove.jmetm 

2,  TSMFT.PrPnPT.OPPCT.TO.XO.XOISCH.ICHNG.KCHNG.TCHNG 
EQUIVALENCE  (JMOVF.IMOVE) . (IMETH, JMETH) 

COMMON/MONEY/  JMMHM.OJM ,ojhmh.OJMRO.OJMBMM.DMAINT.OJMRM.OJMGS 

1.  PMGS , JUCV . 0 JMEC.ROPL AN .HPL  ANT .GSPLAN 

2.  ECPLAN.ROTIME.HTIMFI2) . GST  IMF . ECTIME 

COmmqn/PERERm/  POUTIM.POOTT-.UMHTIM.OMHTIM.GSUTIM.GSDTIM.ECUTIM 
I .  ECOTIM.CiOAY.GAOV.GENO.GBEG 

COMMCN/LAPOR/  ROMrNdO.2)  ,  HMFNI10.2.2)  .GSMENI 1 0. 21  .ECMENI  10.2) 

REAL  jmm.h.LO.LOR.LRIT.LBURN.LSTEEL.JMCV 
DIMENSION  Glfll 

EQUIVALENCE  (G.XTI • (XE.XOEI . (PR. PC) 

OATA  lend  /fl/ 

dimension  i queue  (25) 

DATA  IOUEUE  /2S*0/ 

HL.ELS  =  SL  /  2. 

IE  (I.LE.LNTRAN)  GOTO  100 
PRINT  SO.  I.LNTPAN 

SO  FORMAT  ( 2SH  •••REQUEST  TO  AOO  TRAIN  .I3.I9H  IGNORED.  NTRAIN  ■  .12) 
GO  TO  <300 

100  IE  (LFNO  .LE,  0)  GO  TO  300 

IE  (IOUEUE  III  -  I)  600.300  .600 

NO  TRAIN  PRECEDING  TRAIN  1  IN  LOADING  AREA 

300  CONTINUE 

IS  THERE  A  TRAIN  IN  SWITCH  I 
IE  (NI)MSWT.GT.I)  GOTO  310 
IE  (NIIMLO-MAXLO)  410.600.600 


ADQTRN 

AOOTRN 

ADOTRN 

AODTRN 

AOOTRN 

AOOTRN 

AOOTRN 

AOOTRN 

WHEELS 

wheels 

wheels 

WHEELS 

WHEELS 

WHEELS 

WHEELS 

whefls 

wheels 

wheels 

wheels 

wheels 

WHEELS 

WHEELS 

wheels 

wheels 

wheels 

wheels 

wheels 

all 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

AOOTRN 

AOOTRN 

AOOTRN 

AOOTRN 

AOOTRN 

AOOTRN 

AOOTRN 

AOOTRN 

AODTRN 

AOOTRN 

AOOTRN 

AODTRN 

AODTRN 

AODTRN 

ADOTRN 


2 

3 

4 

5 

6 

7 

8 
9 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


u 


GOLFTA  FORTRAN  1.3  •  AUTO  RFL  «  <07-12-721 


AOOTRN 


000033 
000033 
0C0035 
000037 
000040 
000042 
000045 

000047 
000051 
000055 
000060 

000060 
000062 
000064 
000070 
000071 

000107 

0001  12 
000114 
000115 
0001  1  7 
000120 
00012? 
000123 
000124 
000126 
000130 
000132 
000133 

c 

000134 

000136 

000137 

000141 

0001*2 

000144 

000144 

000150 

000152 

000152 

000153 

•FOLLOWING 

STRUCK 


110  CONTINUE 

RMAX  =  5W I TCH ( 1 1  •  HLFLS 
PK I  N  =  5WlTf.H<  1 1  -  HLFLS 
OO  400  K= 1 .NTRA IN 
XWRK  .  1ST  AT (K«2) 

IF  (XWRK  ,f»T,  RMAX)  GO  TD  400 
IF  (XWRK  .LT.  RMJNl  GO  TD  400 


IWRK  ■  TTSTAT (K» 1 1 
IF  (IWRK  •  (IWRK-61 
400  CONTINUE 
410  CONTINUE 


TRAIN  K  IS  IN  SWITCH  I 
•  ( IWRK-9)  .EO.  0  )  GO  TO  600 


IS  THERE  A  TRAIN  IN  1ST  SEGMENT  OF  TRACK 
RMAX  *  SWITCHdl  -  HLFLS 
OO  500  K*1 .NTRAIN 

IF  (TSTAT (K«?)  .GT.  RMAX)  GO  TO  500 

•  E IWRK— 1  >  •  (1WRK-31  •  (IWRK-51  •  (IWRK-71 


500  CONTINUE 


.EO.  01  GO  TO  600 


NEW  TRAIN  MAY  PROCEED 


LTSTATd.il  *  2 
F7STATII.21  *  O. 

FTST AT ( I . 3)  *  VO 
LKSTOP(I)  *  0 
IF  ( IOUEUE ( 1 1 
FTSTATd.H  * 

LEND  «  LEND  - 
DO  550  J=1.LFND 
IOUEUE  <  J1  *  IOUEUE (J»l) 
550  CONTINUE 

IOUEUE  (LENOM1  *  0 
GO  TO  900 

10 


.NE.  II  GO  TO  900 

0. 

1 


NEW  TRAIN  CANAT  PROCEEO 


600  LTSTAT(I.l) 

FUT IMF ( 1 1  *  0. 

IF  (LEND  .LE.01  GO  TO  670 
OO  650  Jd.LENO 

IF  (lOUEUEIJl  .EO.  I>  GO  TO  900 
650  CONTINUE 
670  LFNO  =  LEND  •  1 
IOUEUE (LEND)  ■  I 
900  CONTINUE 
RETURN 
ENO 

VARIANCES  EOUIVALENCEO  BUT  NOT  REFERENCED 


URAIN 

ltruck 

1FILO 

L1FILO 

IFRLO 

LNTOOA 

LLTRAN 

ULTRUK 
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AOOTRN 

27 

AOOTRN 

28 

AOOTRN 

29 

AOOTRN 

30 

AOOTRN 

31 

AOOTRN 

32 

AOOTRN 

33 

AOOTRN 

34 

AOOTRN 

35 

AOOTRN 

36 

AOOTRN 

37 

AOOTRN 

38 

AODTRN 

39 

AOOTRN 

40 

AODTRN 

41 

AOOTRN 

42 

AOOTRN 

43 

AOOTRN 

44 

AOOTRN 

45 

AODTRN 

46 

AODTRN 

47 

AOOTRN 

48 

AOOTRN 

49 

AOOTRN 

50 

AODTRN 

51 

AOOTRN 

52 

AODTRN 

53 

AOOTRN 

54 

AOOTRN 

55 

AOOTRN 

56 

AODTRN 

57 

AODTRN 

58 

ADDTRN 

59 

AOOTRN 

60 

AODTRN 

61 

AODTRN 

62 

AODTRN 

63 

AOOTRN 

64 

AODTRN 

65 

AODTRN 

66 

ADDTRN 

67 

AOOTRN 

68 

ADDTRN 

69 

AODTRN 

70 

AOOTRN 

71 
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ADDTRN 


07225/72 


lntruk 

IMOVE 

JMETH 

AT 

xoe 

RC 

NVEMCL 

LVEHCL 

NTOA 

llvhcl 

LNVHCL 

JMOVE 

INETH 


0 
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07/2S/72 


000002 


000002 


000002 


000002 

000002 


000J02 


000002 

000002 


000002 

000002 

000002 

0C0002 

000002 

000002 

000002 

000002 

000007 

000011 

000012 

000014 

000016 

000017 

000021 

000022 

000023 

000026 

000031 


SUBROUTINE  RAILOS 
C 

C  ELEMENT  -  MATERIALS  HANOLINfi 

C  GENERAL  PROCESS  -  CONVENTIONAL  RAIL  SYSTEM 

C  ACTIVITY  -  UNLOAD  MUCK  AT  DISCHARGE  POINT 

C  TECHNIOUE  -  SEVERAL*  DEPENDING  ON  NTD  AND  DTU 

C  INSERT  COMMON 

COMMON  /WHEELS/  XE.AE.XM/U.AMAXL.AMINL.BSL.CARCAP.CP.DE.DE.DTAS 
1*  OTMA.DTU.EL.EC.ER.ET.Hoa.HPEA.HPEV.HPEA.HPEV.HPV.LDCD.MC.ML 

2.  NCARS.NPD!NT.NTO.NTM,NTMAX.XP.NTMILP.NTMLPP*NTRACK.SL 

3.  TCURVX (20) .TCURVYI20) . TMA INT • TWE *VD* VS* VE t VE . VMAX * WC • WL *XDS 
A*  M AXLO. NIIMLD. LDUE .OUC.WIJC. STATUS  1361. WHY (?«*>  .MLTYP.WMR.ECONEQ* 

5  ECONSS.ELOCD.EMUCKC.ETRACK.ESWlTC.EUNLOA.ERMAIN.lIBDRE. 

6  1SW(2S).NTINIT.TCCV.TMCV 

COMMON  /OLOCOM/  1E1L0.KSTDP<2S).KUNLD.LSTDP.LVEHCL.NBYRY.NSWCM 

1.  NTROA. NvEHCL *NUMSWT. SWITCH <20 1. TEC (2S1 .TOP (2S) .TST AT (25.4) 

2.  UTIUE (2S) .LDADR.MUKOT.XGS. 1EXCA. MGS fSl.MCV. MEL AGC. DUMMY <201 
tOMMON  /NEWCOM/  LIE1LD.LKST0P(2S1 .LKUNLO.LLSTOP.LLVHCL .LNBY8Y 

1.  LNSWCH.LNTRDA .LNVHCL.LNMSWT .ESWTCH<20>.ETEC(2S)*ETDP(25) 

2.  ETSTAT  <2S.4>.EUTIME<2S) .LLOAOR .LMUKDT.EXGS .L IEXCA .LMGS (SI 

3.  LMCV.LMELAC.E0UMMY(1R1 

dimension  COUOLD <260 1 .CCMNEW <2601 .LTSTAT <25.41 .ITSTAT (25.4) 
EOU1VALENCE  (NVEHCL.NTRAIN.NTRUCK) « (LVEHCL.LTRAIN.LTRUCK) 

1 .  (COMDLD. IEILO) . (COMNEW.L 1EILO.  IEILLOI . (NTOA.LNTROA) 

2.  (ETSTAT.LTSTAT). < TST AT . 1 TST AT  1 

3.  (LLVHCL.LLTRAN.LLTRUK) . (LNVHCL.LNTRAN.LNTRUK) 

COMMON  /ALL  /  xt.STR.IA.RQD.CS.TAMB.ELOW.IELaG 

1.  AT.D.C.SK.T.DT.X.PR.XMAX.TMAX.OX.DV.TPRINT.DTPRNT.IMOVE.JMETM 

2,  TSHET.  REPORT.  DPPCT.  TO.  xo.XDISCH.KHNG.XCMNG.TCMNG 
EOUI VALENCE  (JMOVE.lMDVE) . < 1METH, JMETH) 

CO“MON/MONEY/  jmmmm.ojm,djmmh,ojmrd.djmbmm,dmaint*djmbm,ojmgs 

1 .  PMGS. JMCV.DJMEC.RDPLAN.HPLANT.GSPLAN 

2,  ECPL»N.RDT1ME.HTIME<2).GSTIMF,ECTIME 

COMMON/PERPRm/  ROUT  1M i ROOT IM.ijMhT IM.DMHT IM.GSUT IM .6S0TIM.ECUTIM 
1.  ECDTIM.GOAY.GADV.GENO. GREG 

COMMON/LABOR/  RDMENM0.2)  .HMEN <10.2.21  .GSMEN < 1 0 .21  .ECMEN <  10.2) 
REAL  Jmmhm.LO.LDB.LB1T.LBURN.LSTEEL.JMCV 
DIMENSION  G(B) 

EOUI VALENCE  (G.XT) . (XE.XDE) . (PR. PC) 

EOUIVALENCE  (LNTROA.NCOUNT) 

DATA  INITOS  /0/ 

entry  TRUKOS 

IE  (INITOS  ,E0.  I)  GO  TO  100 
C  INITIALIZE 

1NITDS  *  1 
DO  SO  1*1.25 
UTIMEUI  *  DTU 
SO  CONTINUE 

100  IE  (KUNLO  .EO.  1)  GO  TO  800 

C  UPDATE  TIMES  FOR  TRAINS  UNLOAOING 

NCOUNT  *  0 
DO  500  I*1.NTRAIN 
IE  < I TST AT  < 1 . 1 »  .NE.  10)  GO  TO  S00 
EUTIME(I)  *  UTIME(I)  -  OT 
NCOUNT  ■  NCOUNT  ♦  l 


RAILDS 

2 

RAILDS 

3 

RAILDS 

4 

RAILDS 

S 

RAILDS 

6 

RAILDS 

7 

RAILDS 

8 

WHEELS 

2 

WHEELS 

3 

wheels 

4 

wheels 

S 

wheels 

6 

WHEELS 

7 

WHEELS 

a 

WHEELS 

9 

WHEELS 

10 

wheels 

11 

wheels 

12 

wheels 

13 

wheels 

14 

wheels 

IS 

wheels 

16 

wheels 

17 

WHEELS 

18 

WHEELS 

19 

wheels 

20 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

11 

all 

12 

ALL 

13 

ALL 

14 

RAILDS 

11 

RAILDS 

12 

RAILDS 

13 

RAILDS 

14 

RAILDS 

IS 

RAILDS 

16 

RAILOS 

17 

RAILOS 

18 

RAILDS 

19 

RAILDS 

20 

RAILDS 

21 

RAILDS 

22 

RAILDS 

23 

RAILDS 

24 

RAILOS 

2S 

RAILOS 

26 
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#99032 

IF  (FUTIHEdl  .GT.  0.)  GO  TO  500 

RAILDS 

27 

000036 

IF  (NTRACK  .EO.  II  GO  TO  300 

RAILDS 

28 

000040 

LTSTAT(I.l)  =  2 

RAILDS 

29 

000041 

GO  TO  400 

RAILDS 

30 

000042 

300 

CALL  AOOTRN(I) 

RAILDS 

31 

000044 

IF  (LTSTATd.il  •"  101  400.500(400 

RAILDS 

32 

C 

TRAIN  HAS  BEEN  ADDED 

RAILDS 

33 

000047 

400 

NCOUNT  *  NCOlINT  -  I 

RAILDS 

34 

000051 

FUTIHEdl  ■  DTU 

RAILDS 

35 

000053 

500 

continue 

RAILDS 

36 

000056 

IF  (NCOUNT  -  NTDI  600.620.640 

RAILDS 

37 

000060 

600 

lifilo  =  0 

RAILDS 

38 

000061 

GO  TO  BOO 

RAILDS 

39 

000062 

620 

LIFILO  *  1 

RAILDS 

40 

000063 

GO  TO  800 

RAILDS 

41 

000064 

640 

PRINT  645  .  NCOUNT 

RAILDS 

42 

000072 

645 

FORMAT  (45HOTOO  MANY  TRAINS  IN  DISCHARGE  AREA.  NCOUNT  ■  .15) 

RAILDS 

43 

000072 

CALL  FAIT 

RAILDS 

44 

000073 

BOO 

RETURN 

RAILDS 

45 

000074 

END 

RAILDS 

46 

•following  variables  eouivalenceo  but  not  referenced 

NTRUCK 

LTRAIN 

LTRUCK 

IFILD 

ifillo 

LNTROA 

LLTRAN 

LLTRUK 

LNTRAN 

LNTRUK 

IMOVE 

JNETM 

AT 

AOE 

PC 

NVEMCL 

LVEHCL 

NTOA 

LLVHCL 

LNVHCL 

JHOVE 

INETM 

AE 

PR 
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SUBROUTINE  RAILEX 

RAILEX 

2  "I 

c 

RAILEX 

3 

c 

element  -  materials  hanoling 

RAILEX 

* 

c 

GENERAL  PROCESS  -  CONVENTIONAL  RAIL  SYSTEM 

RAILEX 

S 

c 

ACTIVITY  -  SYSTEM  EXTENSION 

RAILEX 

6 

c 

TECHNIOIIE  -  SINGLE  TRACK  PLACED  AHEAD  DE  CALIF.  SWITCH 

RAILEX 

7 

c 

RAILEX 

6 

c 

INSERT  COMMON 

RAILEX 

9 

000002 

COMMON  /WHEELS/  AF . AE « AMAX < AMAXL « AMINL  .RSL.CAPCAP .CP.OE »DF *DTAS 

WHEELS 

2  1 

1,  OTMA.OTU.EL.EC.FR.ET.HPA.HPEA.HPEV.HPEA.HPEV.HPV.LOCO.MC.ML 

wheels 

3 

2.  NEARS. NPOlNT.NTO.NTM.NTMAX.XP.NTMlLP.NTMLPP.NTRACK.SL 

WHEELS 

4  "I 

3.  TCURVX ( ?0 ) « TCURVY  <20 1 « TMA INT.TWE  * VOtVSt  VE  * VF .VMAX.WC.WL.XDS 

WHEELS 

5 

A.  MAXLO. NUMlD.LOUE. OUC.VUC. STATUS (36) .WHY (24) .MLTYP.WMR.ECONEO, 

WHEELS 

6 

S  ECONSS.ELOCO.F“UCKC.ETRACK.ESWITC.EUNLOA.EPMAIN.IIRORE. 

wheels 

7 

6  ISW( 2S 1 .NT  INI T .TCCV.TMCV 

wheels 

6 

000002 

COMMON  /0I.0COM/  IFIL0.KST0P(25I  .kunlo .lstop.lvehcl .nbyby.nswch 

wheels 

9  “I 

I ,  NTPOA. NVEHCL.NUMSWT. SWITCH (20 ) .TFC< 25) .TOP (2S ) .TST AT ( 25,4) 

WHEELS 

10 

2.  IJT I ME (?S)  .LOAOR.MUKOT.XGS.IEXCA.MGS(S)  .MCV.MFLAGC. DUMMY  (20) 

WHEELS 

»1 

000002 

COMMON  /NFWCOM/  L IF ILO.LKSTOP ( 2S ) .LKUNLO.LLSTOP.LLVHCL .LNBYBY 

WHEELS 

12 

1 .  LNSWCh.LNTROA .LNVHCL .LNMSWT .FSWTCH(20) .FTFCI2S) .FT0P(25) 

WHEELS 

13 

2.  FTSTAT(2S,4I.FllTIHF(2S).LL0AnR.LMUK0T.FxGS.LIEXCA,LMGS(5) 

wheels 

3.  LMCV .LMFL 4C.FOIIMMY  (19) 

WHEELS 

»5 

000002 

DIMENSION  COMOLD (,?60)  .COMNEW  ( 260 1  .LTST  AT  (25.  A  )  .  ITSTAT  (25.41 

WHEELS 

16 

000002 

EQUIVALENCE  (NVFHCL.NTRAIN.NTRUCK) , ( LVEHCL .LTRAIN .LTPUCKI 

WHEELS 

17 

1.  (COMOLO.IFILOI . (COMNFW.LIFILO.IFILLO).(NTDA.LNTRDA) 

WHEELS 

16 

2,  (FTSTAT.LTSTAT) .(TSTAT. ITSTAT I 

WHEFLS 

19 

3.  (LLVHCl. .Ll.TRAN .LLTPIIK ) .  (LNVHCL <LN TRAN .LNTRUK ) 

WHEELS 

20  ~J 

000002 

COMMON  /ALL  /  XT . STR. IA .ROn.CS.T AMR.ELOW. IFLAG 

ALL 

2 

1.  AT.D.F.SK.T.DT.X.PR.XMAX.TMAX.OX.OV.TPRINT .DTPRNT . IMDVE. JMETH 

ALL 

3  1 

2.  TSHFT. REPORT. OPPCT. TO. XO.xniSCH.ICHNG.XCHNG.TCHNG 

ALL 

4 

000002 

EQUIVALENCE  ( JMOVE. IMOVFI . ( IMETH. JMETH) 

ALL 

5 

000002 

COMMON/MONEY/  JMMHM .OJM.O JMMH.OJMRO.O JHBHM.DMA INT .DJMBM.DJMGS 

ALL 

6  1 

I.  pmgs.jmcv.ojmec.rdolan.hplant.gsplan 

ALL 

2.  ECPL*N.ROTIMF.hTIME(2).GSTIME,ECTIME 

ALL 

6  J 

000002 

COMMON/PFRXRu/  ROUT IM  .ROOT IM, UMHT IM .OMHT IM .GSUT IM» GSOT IM ,ECUT IM 

ALL 

9 

I.  ECOT IM.GOAY ,GADV .GFNO.GPEG 

ALL 

10 

000002 

COMMON/LAROR/  RDMFN()0.2I.HMEN(I0.2.2).GSMEN(10.2).ECMEN(10.2» 

ALL 

11  "I 

000002 

RFAL  Jmmhm .lq.lor .lr it.lburn.lstffl . jmcv 

ALL 

12 

0G0002 

DIMENSION  G(«l 

ALL 

13 

000002 

EQUIVALENCE  (G.XT). (XE.XOE) . (PR. PC) 

ALL 

14 

000002 

COMMON  /CONVEY/  ACM, OTPS. DWM.FE.FL.HP.OC.SMlN.WBI 

BELTS 

2 

1.  WP.XLE .NSURGE .OE.OP.SN.OTC8.0TMR, A8.VRI.NEXDN.NGE0.XE.LNSUR6. 

UPDA7 

1 

2  STIME.OOMP.OTMI.OTMO 

UP0A7 

2 

000002 

DATA  ALA  /0./ 

RAILEX 

13 

0C0002 

DATA  DTE  /0./ 

RAILEX 

14 

000002 

DATA  DTS  /0./ 

RAILEX 

15 

000002 

DATA  NEEOIN  /0 / 

RAILEX 

16  ;  j 

000002 

data  s  /o./ 

RAILEX 

17  I 

000002 

DATA  INITEX  /0/ 

RAILEX 

16 

c 

INITIALIZE 

RAILEX 

19 

000002 

ENTRY  TRUKEX 

RAILEX 

20 

000007 

100  INITEX  «  I 

RAILEX 

21  r 

090010 

IF  (XOE  •  XOS  •  BSL  .GT.O.)  GOTO  200 

RAILEX 

22 

c 

OPTION  2  (TEMPORARY  VALUES) 

RAILEX 

23 

O00PU 

XOE  ■  S. 

RAILEX 

24 
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RAILEX 
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009015 

000016 

000017 

000022 

000025 

000026 

000027 

OOOOAO 


0000*0 

0000*2 

0000*3 

0900** 

00005! 

000056 

000060 

000061 

000062 

00006* 

000066 

000067 

00007! 

00907* 

000076 

OOCIOO 

900101 

000102 

000103 

000103 

00010* 

000105 

000110 

000113 

000II5 

000116 

00012! 

000123 

00012* 

000125 

00013! 

000131 

00013* 

000136 

000137 

0001*1 

0001** 


XOS  *  3. 

8SL  *  S2R0. 

C  ROTH  OPTIONS  HERE 

200  IE  INTRACK  .FQ.  2)  RSL  *  0 

IEIAMINL  .EO.  AMAXLI  ALA=AMINL 
NOUMMY  *  0 
NRYflY  =  0 

PRINT  205.  XOE.XOS.RSL 

205  FORMAT  (30M0RAIL  EXTENSION  -  EXT.  RATE  »  T8.2. 

U  20H  SWITCH  HOVE  RATE  ■  EB.2, 

2  29H  DISTANCE  BETWEEN  SWITCHES  *  E8.21 

C  WAS  CALL  FOR  INITIALIZATION  ONLV 

IF  (NFFOIN)  900.900*210 
210  NFEOIN  =  0 
GO  TO  270 

C  NORMAL  ENTRY  after  first  call 

ENTRY  RAILXT 
ENTRY  TRUKX  T 

C  HAS  INITIALIZATION  BEEN  DONE 

IF  ( INI  TEX )  250.250.270 

250  NEEOIN  »  1 
GO  TO  100 

270  IF  (NEXON  .EO.  II  GO  TO  9S0 
NSWTCH  *  NSWCM 
IF  (NSWTCH)  100.300.530 
300  IF  (NGEO  .EO.  I)  GO  TO  350 

C  CYCLIC  OPERATIONS  GEOMETRY 

IF  (DTE  .EO.  0.1  OTE  ■  OX  /  XDE 
DTE  *  OTE  -  OT 
ALA  x  ALA  »  OX 
IF  (OTE1  310. 310. 320 
310  LNRYRY  *  0 
DTE  *  0 
GO  TO  330 
320  LNRYRY  =  i 
330  GO  TO  *50 

C  CONTINUOUS  OPERATION 

350  ALA  *  ALA  ♦  (XOE  •  OTI 
S  *  S  •  OX  -  (XOE  •  OTI 
IE  (S  .GT.  0)  GO  TO  *00 

C  EXTENSION  HAS  CAUGHT  EXCAVATOR 

XWRK  t  XOF  •  OT 
ALA  a  ALA  -  XWRK  .  OX 
S  *  S  -  OX  ♦  XWRK 
GO  TO  *50 
*00  LNRYRY  =  0 

IF  (S  .GE.  SM)  LNRYRY  ■  I 
*20  CONTINUE 

*50  IF  (NSWTCH  .GT.  01  GO  TO  530 
IF  (ALA  .LT.  AMAXLI  GO  TO  750 

C  IS  SWITCH  TO  PE  AODFO 

IF  (RSL.EO.  0)  GO  TO  510 
IE  (NUMSWT  ,FO.  I)  GOTO  *70 

xwrk  ■  switch (numswti  -  switch<nunsvt  -  u 
IFIXWRK-BSl-SLl  510. *90. *90 


RAlLEX  25 
RAILEX  26 
RAILEX  27 
RAILEX  28 
RAILEX  29 
RAILEX  30 
RAILEX  31 
RAILEX  32 
RAILEX  33 
RAILEX  3* 
RAILEX  35 
RAILEX  36 
RAILEX  37 
RAILEX  38 
RAILEX  39 
RAILEX  *0 
RAILEX  *1 
RAILEX  *2 
RAILEX  *3 
RAILEX  ** 
RAILEX  *5 
RAILFX  *6 
RAILEX  *7 
RAILEX  *8 
RAILEX  *9 
RAILEX  50 
RAILEX  51 
RAILEX  52 
RAILEX  S3 
RAILEX  5* 
RAILEX  55 
RAILEX  S6 
RAILEX  57 
RAILEX  58 
RAILEX  S9 
RAILEX  60 
RAILEX  61 
RAILEX  62 
RAILEX  63 
RAILEX  6* 
RAILEX  65 
RAILEX  66 
RAILEX  67 
RAILEX  68 
RAILEX  69 
RAILEX  70 
RAILEX  71 
RAILEX  72 
RAILEX  73 
RAILEX  7* 
RAILEX  75 
RAILEX  76 
RAILEX  77 
RAILEX  78 
RAILEX  79 


GOLETA 


000)47 
000155 
0  001 56 
000157 
000160 
000160 

00016? 
000163 
000166 
000167 
000171 
000173 
0001 73 
003174 
000175 
000176 
000?00 
000?03 
000204 

000??1 

000224 

000224 

000231 

C00232 

000250 

000253 

0C0253 

C00254 

000256 

000257 

000260 

000262 

000263 

000264 

000265 

000246 

000270 

000272 

000275 
000300 
000301 
000303 
00  0  305 
000304 
000307 
000317 
0  00.??? 

000325 


FORTPAN  1.3  •  AUTO  RFL  •  (07-12-72) 


RAIlfX 


07/25272 


C 


c 


c 


c 


c 


470  IE (SWITCH(NUMSWT) 

490  NSWTCH  *  1 
GO  TO  530 
510  NSWTCH  —  2 
530  CONTINUE 

550  IF  (NSWTCH  .EO.  1)  GO 


-8SL-SL-XDISCH)  510*490.490 


TO  650 

PUSH  SWITCH  FORWARD 
0.)  GO  TO  600 
-  AH1NL)  /  *05 


IF  (DTS  .HE. 

OT5  *  ( AMAXL 
LN8YRY  =  0 
600  DTS  *  OTS  -  OT 

IF  (DTS  .GT.  0.)  GO  TO  7S0 
DTS  =  0. 

NSWTCH  =  0 
LN8YBY  *  0 
AL*  =  AMINL 

I5(A«A*L  .NE.  AMINL)  CO  TO  620 
FSWTCH(NUMSWT)  *SWITCH(NUMSWT) *OX 
DO  60S  K  =  1 .NTRAIN 

IF  (  (KSTOP(K)  .GE.  100)  .OR.  (KSTOP(K) 
1.21'DX 
605  CONTINUE 
GO  TO  750 

620  FSWTCh(NUMSWT)*SWITCH(NUMSWT).AMAXL-AM1NL 
DO  610  Sri, NTRAIN 

IF(ISSTOPIK)  .GE.  100)  .OR.  (KSTOP(S)  .EO 
1.2) ,A“AXL-AMINL 
610  CONTINUE 
GO  TO  750 

ADO  NEW  SWITCH 

700.672.700 


650 

672 


700 


710 


IF  (  DTS) 

DTS^OTAS 

NSWTCH-1 

LN5YBY  =  0 

DTS  x  DTS  -  DT 

IF  (DTS)  710,710.750 


NEW  SWITCH  HAS  BEEN  ADDED 


OTS  =  0. 
NSWTCH  * 
LNRYRY  s 
LNMSWT  = 


0 

0 

NUMSWT  .  1 
FSWTCM( LNMSWT )*SW I TCH(NUMSWT) 

FS WTCHI NUMSWT )=SW I TCH( NUMSWT )-SL 

MUST  NEW  TRAIN  BE 


RAILEX 
PAILFX 
PA  ILEX 
RAILEX 
RAILFX 
RAILEX 
RAILFX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILFX 

.EO.  D)  FTSTAT(S.?)-TSTAT(K  RAILFX 

RAILEX 
RAILEX 
RAILFX 
RAILEX 
RAIIEX 

1))  FTSTAT(/i?)"TSTAT(K  RAILFX 

RAILFX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILFX 
RAILEX 
RAILEX 
RAILEX 
RA1..EX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILEX 
RAILFX 

ADDED  RAILEX 


750  XWRK=(X-XDISCH)/5280. 

YWRK  =  0. 

IF  (XWPS  .LE.  XP)  GO  TO  770 
XI  *  XP/5280. 

YWRK  r  XWRK  -  XI 
XW9K  =  XI 

770  NTFITrNTINIT.NTMILP»XWPS«NTMLPP»YWRS 
IF  (NTFIT  .GT.  NTMAX)  NTF 1 T  «  NTMAX 
IF  (NTFIT  -  NTRAIN)  900.900.820 

NEW  TRAIN  MUST  BE  ADDED 
820  IF  ( 1FILLO  .FO.  1)  GO  TO  900 


RAILEX 

RAILEX 

RAILEX 

RAILEX 

RAILEX 

RAILEX 

RAILEX 

RAILEX 

RAILEX 

RAILEX 

RAILEX 


80 

81 

8? 

83 

84 

85 

86 

87 

88 

89 

90 

91 
9? 

93 

94 

95 

96 

97 

98 

99 
100 
101 
10? 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 
118 
ii  r 
118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 
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(07-12-7?) 


RAILEX 


07/25/72 


000327  LNTRAN  =  NTRAIN  •  1 

000031  L  *  LNTRAN 

00031?  FTSTAT(L.4>  =  0. 

000133  CALL  AODTRN(L) 

000135  IF  (LTSTAT(L.l) 

000340  070  NTOA  =  NTDA  .  1 

00014?  IF  (NTOA  .GF.  NT 0 ) 

000345  500  LNSWCH  =  NSWTCH 

000347  950  RETURN 

000150  END 

•following  variables  equivalenceo  but  NOT  referenced 

NTRUCK 


101  900.870.900 
IFILLD  »  1 


LTRAIN 

LTRUCK 

IFILO 

LIFILD 

LNTROA 

LLTRAN 


LLTOUK 

LNTRUK 

IMOVE 

JMETH 

XT 


?C 

NVFHCL 

LVt'HCL 

LLVHCL 

l.NVHf.L 

jMOVE 

IHFTH 

XF 

PR 


railfx 

ns 

railex 

136 

railfx 

137 

RAILEX 

138 

RAILEX 

139 

Railex 

140 

RAILEX 

1*1 

railex 

142 

railex 

143 

RAILEX 

144 
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Q 


SUBROUTINE  RAILMT 


GOLETA  FORTRAN  t.3 


AUTO  REL  •  (07-12-72) 


07/25/72 


000002 


000002 


000002 


090002 

00S002 


000002 


000002 

000002 


000002 

000002 

000002 

000002 

090002 

000002 

000002 

000002 

000002 

000002 

000007 

0009  T  T 

OOOOIS 
000016 
0000  I  7 
000020 
000020 
000021 
000*23 


C 

C 

C 

C 

C 

C 


C 

c 


SUBROUT  I NE  RAILHT 

element  -  materials  handling 

GENERAL  PROCESS  -  CONVENTIONAL  RAIL  SYSTEM 

ACTIVITY  -  GENERAL  MAINTENANCE  ANO  REPAIR  OF  LOCOMOTIVES  •  CAR 


INSERT  COMMON 

COMMON  /WHEELS/  AE • AE < AMAX > AMAXL « AM  I NL • RSL »C ARC AP .CP «DE .OF *OT AS 

1,  DTMA.OTU.EL.EC.FR.ET.HPA.HPEA.HPEV.HPEA.HPEV.HPV.LOCO.MC.ML 

2,  NCARStNPOINT.NTO.NTM.NTMAX.XP.NTMILP.NTMLPP.NTRACK.SL 

3,  TClJRVX ( 20) • TCUPVY ( 20 ) « TM A INT • T WE • VO. VS • VE • VE . VM AX . WC • WL « ADS 
A.  MAXLO. NU«lD. LODE. OUCtWUC. STATUS (36), WHY (2A).MLTYP.WMR,EC0NE0. 


5  ECONSS.ELQCO.EMUCKC.ETPACK.ESVI TC.EUNLOA.ERMAIN, 1 1  BORE. 

6  ISWI2S)  .NTINIT.TCCV.THCV 

COMMON  /OLOCCM/  !E!L0.KST0P<25) . KUNLO .LSTOP . L VEHCL .NBYPY .NSWCH 

1,  NT  BOA  .NVEHCL.NIJMSWT  .SWITCH  (20)  .TEC  (25)  .  TOP  (25)  .TSTAT  (25.  A) 

2.  UTIME (2S) ,L0ApP.MUK0T.XG5.IEXCA.MGS(5> .MCV .MEL AGC .OUMMY (20) 
COMMON  /NEWCOM/  LIEILO.LKSTOP(2S) .LKUNLO .LLSTOP .LLVHCL .LNRYRY 

1 .  LNSWCH.LNTRDA.LNVHCL.LNMEWT .EBWTCHI20 ) . FT  EC ( 2S ) .ETOP ( 25) 

2.  ETSTAT  (?5.A),EiiTIME(25l  .LLO APR .LMUKOT .EXGS  .L IEXCA ,LMGS (5) 

3.  LuCV.LMrLAC.EDl|MMY  (19) 

01  MENS  ION  COMOLO (260) «COMNEW(260).LTSTAT(25.A).ITSTAT(25.A) 
EOU3VAI  ENCE  (NVEHCL.NTRAIN.NTBUCK) . (L VEHCL .LTRAIN.LTRUCK) 

1 ,  (CO'iOLD.  IFlLO) .  (COMNEW.LIEILO.IEILLO)  .  (NTOA.LNTROA) 

2,  (ETSTAT  .I.TST  AT)  .  (  TS T  AT  .  I  TST AT  ) 

3,  (LLVHCL.U  TRAN.LLTPUK) . (LNVHCL.LNTRAN.LNTRUK) 

COMMON  /ALL  /  XT.STR.IA.ROO.CS.TAMR.ELOW.IELAG 

1,  AT.O.E.SK.T.PT.X.PB.XMAX.THAX.DX.PV.TPRINT.DTPRNT.IMOVE.JMETM 

2.  TSHET, REPORT. OPPCT. TO. XO.XOISCH.ICHNG.XCHNG.TCHNG 

EQUIVALENCE  ( JMOVE.IMOVF) . ( IMETH, J-ETH) 

CCMMON/mONEY/  JMwhM.DJM.oJMMh.DJMRD.oJMBMM.OMAINT .OJMBM.oJMGS 

1 .  PMGS. JMCV.DJMEC.RDPLAN.HPLANT.GSPLAN 

2.  ECPLAN.ODTIME.HTIME(2) , GST  I  me ,ECT IME 

COMMON/PERERm/  bdutim.bootim.umhtim.omhtih.gsutim.gsotim.ecutim 


I,  ECDTIM.GDAY.GAOV.GENO.GREG 

COMMON/LAROR/  ROMEN  (10. 2 )  .MMEN(  10.2.2). GSMENI  10.2)  .ECMENM0.2) 
REAL  JMMMM.LD.L0B.L8I T.LBURN.LSTEEL. JMCV 
OTMENSION  G(P) 

EOU I  VALENCE  (G.XT).(XE.XOE). (PR. PC) 

EQUIVALENCE  (DTM.OTHA) 

DATA  NTMA  /0/ 

OATA  MTINIT  /0/ 

DIMENSION  RT IME (25) 

ENTRY  TRUKMT 
IE  (MTINIT)  100. 100. 200 


100 


IE 


(  TMAINT 


FIRST  CALL  TO  SUBROUTINE 
•  JMMHM  •  OTM  ,GT,  0.  )  GO  TO  150 

HERE  FOR  OPTION  2  (VALUES  TEMPORARY) 


TMAINT  *  1.5 

JMMHM  s  100. 

OTM  *  20. 

150  CONTINUE 
MTINIT  *  I 
00  170  1*1 .25 
RTIME(t)  *  TMAINT 


RAILMT 

2 

RAILMT 

3 

RAILMT 

4 

RAILMT 

5 

RAILMT 

6 

RAILMT 

7 

RAILMT 

e 

WHEELS 

2 

wheels 

3 

wheels 

4 

wheels 

5 

WHEELS 

6 

wheels 

7 

wheels 

B 

wheels 

9 

WHEELS 

10 

WHEELS 

II 

WHEELS 

12 

wheels 

13 

WHEELS 

14 

WHEELS 

15 

WHEELS 

16 

WHEELS 

17 

WHEELS 

18 

wheels 

19 

wheels 

20 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

11 

ALL 

12 

ALL 

13 

ALL 

14 

RAILHT 

11 

RAILMT 

12 

RAILMT 

13 

RAILMT 

14 

RAILMT 

15 

RAILMT 

16 

RAILMT 

17 

RAILMT 

18 

RAILMT 

19 

RAILMT 

20 

RAILMT 

21 

RAILMT 

22 

RAILMT 

23 

RAILMT 

24 

RAILMT 

25 

RAILMT 

26 
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goleta 

FORTRAN 

1.3  •  AUTO  RFL  •  (07-12-721  RA1LMT 

07225/72 

000025 

170 

CONTINUE 

railmt 

27 

000026 

NT  MA  =  0 

RAILMT 

26 

000027 

PRINT  180.  TMA1NT.  JMMHM.  DTM 

Railmt 

29 

000061 

ISO 

FORMAT  (63H0OA1L  HA  1  NT •  PARAMETERS  -  TIME  TO  REPAIR  ■ 

.Ffi.2, 

RAILMT 

30 

•  21H  COST  OF  MATFR1ALS  «  .F8.2.23H  DAYS  BETWEEN 

MAINT.  •  , 

RAILMT 

31 

•  Ffi.2  ) 

RAILMT 

32 

C 

IS  IT  TIME  FOR  MAINTENANCE 

railmt 

33 

000061 

200 

ncdunt  *  0 

RAILMT 

36 

0  00062 

00  600  1  =  1  *NTPA IN 

RAILMT 

35 

000066 

IWRK  r  ITSTATd.il 

RAILMT 

36 

000066 

IF  (IwPK  ,FQ.  II)  GO  TO  300 

railmt 

37 

OOOOSO 

IF  (IWRK  ,NF.  10)  GO  TO  600 

railmt 

38 

C 

TRAIN  is  in  discharge  AREA 

Railmt 

39 

000052 

IF  1 TSTAT ( 1 .6 >  .LT.  OTM)  GO  TO  600 

Railmt 

60 

000055 

IF  (NTMA  ,GE.  NTM)  GO  TO  600 

Railmt 

61 

C 

TRAIN  I  NEFOS  MAINTENANCE 

RAILMT 

62 

000060 

LTSTAT ( I . 1 )  =  II 

RAILMT 

63 

000061 

NTMA  s  NTMa  .  I 

RAILMT 

66 

000062 

NTOA  *  NTDA  -  1 

RAILMT 

65 

000063 

IF  (NTOA  .LT.  NTO)  L1F1LO  «  0 

RAILMT 

66 

000066 

300 

RTIMF.I1)  =  RTIME(I)  -  OT 

RAILMT 

67 

000071 

NCOUNT  *  NCOt/NT  ♦  1 

railmt 

68 

000072 

IF  (RT  1  ME  (  1 1  .GT .  0.)  GO  TO  <,00 

RAILMT 

69 

C 

MAINTENANCE  finished 

railmt 

50 

000075 

IF  (LIF1LO  .FO.  1 )  GO  TO  600 

RAILMT 

51 

000076 

LTSTATd.ll  =  10 

railmt 

52 

C0O077 

FTSTAT  (1.6)  =  0. 

railmt 

53 

0O01OO 

0 J“MH  i  0  JMHH  .  JMMHM 

railmt 

56 

000102 

RT IME 1 1 ) =  TMA1NT 

RAILMT 

55 

000106 

NTMA  s  NTMA  -  1 

RAILMT 

56 

000105 

NTOA  r  NTOA  .  I 

railmt 

57 

000106 

IF  (NTOA  ,5F.  NTO)  LIFILO  ■  I 

railmt 

58 

000111 

NGOUNT  =  NCOllNT  -  I 

RAILMT 

59 

000113 

600 

CONTINUE 

railmt 

60 

000  1  16 

NT«A  :  NCOIJNT 

RAILMT 

61 

000117 

IF  (NTMA  .GT,  NTM)  GO  TO  500 

RAILMT 

62 

000122 

RETURN 

RAILMT 

63 

000122 

500 

PRINT  551.  NTMA. NTM 

railmt 

66 

000132 

550 

FORMAT  (1X.16.60H  TRAINS  IN  MAINTENANCE  AREA.  CAPACITT 

■  ,  16) 

Railmt 

65 

000132 

CALL  c'X';  T 

RAILMT 

66 

000133 

END 

RAILMT 

67 

•FOLLOWING  variables  equivalenced  but  not  referenced 

NTRnCK 

ltrain 

LTPUCK 

1FIIO 

I F 1LLO 

LNTPOA 

LlTRAN 

LLTR'JK 

LNTPAN 

LNTRUK 

IMOVE 

JMETH 

AT 
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RAILMT 


07/25/72 


XDE 

PC 

OTMA 

NVEMCL 

LVEHCL 

LLVHCL 

LNVHCL 

JMOVE 

IMETH 

xt 

PR 


VI-102 


R. 


GOLETA 


0&0002 

OOOOO? 


00000? 


OOOOO? 


OOOOO? 

OOOOO? 


OOOOO? 


OOOOO? 

OOOOO? 


OOOOO? 

OOOOO? 


OOOOO? 

OOOOO? 

OOOOO? 

00300? 

OOOOO? 

OOOOO? 


SUBROUTINE  GRNSUP 


Fortran  1.3  •  auto  pel  •  <07-12-72) 


07/25/72 


SUBROUTINE  GRNSUP  GPNSU' 

C  GRNSUP 

C  ELFMENT-PPI“APY  GROUND  SUPPORT  GRNSUP 

C  GENERAL  process-rockrolts. steel  RIB  SETS. SHOTCBETE. COMBINATION  GRNSUP 

CS  OF  THOSE  GRNSUP 

C  ACTIVITY-INSTALLATION  GRNSUP 

c  GRNSUP 

COMMON  /GPND/  PSST (SO.O) .HAXPSST.  UCS .UCSC . BATFPR . BATESC .RATE SS  SUPPORT 
I.  GSLOS.TAS.TCT,FPRORT.FSCPLA,GOOW,GSETOO.MAXPS<;  SUPPORT 

COMMON  /WHEEL  S/  AF . AF , amax , AmaxL.amINL .RSL.CARCAP.CP.OE. OF .OT AS  WHEELS 
I.  OTuA.OTil.FL.FC.FB. FT  .  HP  A  ,  HP  F  A ,  hPE  V  .  HPf  A ,  HP  F  V  ,  HPv  .  L  OCO .  MC  .  ML  WHEELS 

?,  NCaRS.Np01NT  .NTO.r.  Tm.NTMAX.xP.nTMILP.NTmLPP.NIRACK  .SL  WHEELS 

3.  TCtIRVX  (?0l  .  TCURVY  (,’0  I  .  TMATNT.TWF.VO.VS.VE.VF.VMAX.WC.WL  .XOS  WHEELS 

4 .  MAXLO.N'.JNLO.LOiiE  . QUO. »UC. STATUS (36)  .WHY  (2  AT .  ml  T  YP ,  WMB  .ECONEQ.  WHEELS 

5  ECONSS  .FLor0.ruUCi'F  .FTOACK  ,ESWI  TC.EUNLOA  .ERMAIN.  1 1R0RF.  WHEELS 

6  ISWI?1’)  .NT  I  NIT  .T('FV.Turv  WHEELS 

COMMON  /OLOCOh/  IFIL0.wSTOP(?5I.kUNL0.LST0P.LVEHCL.NBYRY.NSWCH  WHEELS 

1.  NTPOA.NVEhCL .NUHSWT . SW1 TCH (?0) .TEC  <?S  > . TOP  I 25) .TSTAT ( 2S *4)  WHEELS 

2.  UTTME  (?S1  .LOAOP.MijmoT.XGS.  1 E  »C  A  ,  MGS  ( S I  .  MCV  .  MF|_  AGC .  OU“MY  (20)  WHEELS 

COMMON  /NEwCOM/  LIFTLO.LKSTOP(?S)  .LMIINLO  .  L  LS  T  OR  .  lLVHCL  .  LNRYBV  WHEELS 

I .  LNS.CH.LNTORA .LNVHCL .LNMSWT.FSWTCH(?0).ETFC(?S).FTOP(?S)  WHEELS 

?,  F TSTAT (?S,4) .FUTIME (25) .LLOAOB.LMUWOT .F XGS . L I EXCA ,LMGS 1 5 )  WHEELS 

3.  LMCV.LMFLAC.FOtJMMy  (  |  q|  WHEELS 

01  MENS  ION  CO“OLO(?SO» . rO«NE w I 260 ) .L TST AT  1 25 . A ) . I TSTAT ( 25 .4 )  WHEELS 

EOU I  VALENCE  (NVFhCL .NTma IN. NT  RUCK) . (LVEnCL .L TR A1 N .L TRUCK )  WHEELS 

1 .  (COMOLO, 1FTL0) . ( CO“Nf W.L IF 1L0. IFILLD) . ( NT D A . LN TRDA )  WHEELS 

2.  (FTSTAT.LTSTAT) . (TSTAT. 1TSTAT)  WHEFLS 

3.  (LL VHCL.LL TRAN, LL TRUK). (LNVHCL. LNTRAN.LNTRUK)  WHEELS 

OATA  PSST  /  SS, .00. .so. .IS. .75. .75. .SO. .SO. .50. .25, .25,. 25. .0,*0».  GRNSUP 

1  0 . , AS*  0 . .  GRNSUP 

2  2*5 , .  , S . .  |  • . ?•  .S . . I . . ? • . S • . I • . ?• «5. « 1 . ,2. ,G5*0. .  GRNSUP 

3  R‘)‘),,)R‘)..<l‘5‘)o‘n..lO..R..R..S..';..'i..4.#5..5..3.  .2 .  »2. .  2.  .45*0  .  »  GBNSUP 

4  4*0.. 4#, S*0.. 4. ,2*0. .4. ,46*0..  GRNSUP 

6  1  ..  1  ..3, 0..3..2..3,  .3.,4..3..B»4,,4S*0.»  GRNSUP 

7  S*(J.  ,S,  ,0.  »  G  •  »  4  ,  ,0,  .  3.  ,  3.,  3*2.,4S*0, .  GRNSUP 

0  0..0.  .S..?*l .,0.. 2*3.. 0..S..S*0. .45*0..  GPNSU° 

<J  0  .  .0  . , 0  . . 0 . . 0 . . 0 . , 0 , . 0 . , 0  . » 1 . , 0, .0 . » 0 • « 0 . .0 . ,45*0. *  GRNSUP 

A  •?.,?.•!•<!. •).,!.< 45*0./  GRNSUP 

OATA  uAXPS/ls/  GRNSUP 

COmmhn  /all  /  XT  *STP , T  A.POO.CS.T  AMR, FLOW. IFLAG  ALL 

1.  AT.O.r.'K.T.OT.x.PR.XMAX.TMAX.ox.OV.TPRlNT .DTPBNT  » I  MOVE. JMETH  ALL 

2,  TShFT .ofPGRT.OPPCT . TO. 'O.XOISCH, TCHNG.XCHNG.TCHNG  all 

EQUIVALENCE  ( JMOVE. luOVEl .  (  I“ETh,  (MFTH)  all 

COM“ ON /money/  juuhm ,0 JM.D jmmh.0 JMRO.O JMPMM.DMA 1NT .OJMRM.OJMGS  ALL 

1.  PMfiS, JM"V,nj“FC.BnPLAN.MPLANT,GSPLAN  ALL 

2.  ErPLAN.BOTTMF.HTlMr (?) .GST1ME.ECTIME  all 

COMMON /PE PERU/  BOUT 1M, BOOT ! M , u«H T I M , OMHT I M , GSUT Im ,GSOT 1 M , ECUT IM  ALL 

I.  CCOTIM.GnAV.GAnv.GFNO.GREG  ALL 

COMMON /LAS OR/  RD“FN( 10.2) .HMFNI 10.2.2) .GSMENU0.2) .ECMEN (10,2)  ALL 

REAL  Jmmhm.L0.L0B.L3IT , L RURN.L STEEL . JMCV  ALL 

DIMENSION  G ( 0 )  ALL 

EOU 1  VALENCE  (G.XT) . (XE.XDF) . (PB.PC)  all 

OIMENS I  On  SSCOEE  (Q,  3)  .WEIGSSI  (11 )  .WEIGSS2U  1 )  GRNSUP 

c  GRNSUP 

C  POE  SETTING  TABLES  FOR  STEEL  RIB  INSTALLATION  GRNSUP 
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m>u*“Wiv>-o-o®^i>Ln#-ufv-o«(X)'jOLn*-wPu«-o^a»sO‘Vfl*'W',vj— 


GOLETa 


00000? 

000002 

000002 

000002 

000002 

000002 

000002 


000002 

000006 

000006 

000012 

000012 

000016 

0000  16 
000020 
00002? 
000935 
G00035 
000040 
000043 

000043 

000045 

000046 

000047 

G00047 


000050 

000055 

0C0056 

000057 

000050 

000061 

000062 

000063 

0000o4 
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GRN5UP 


07/25/72 


C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


DATA  SSCOEF  /  90 . .75. .75. .50 . ,50 • « 25. .25. • 0. ,0 . «5. »5. «?. ,5. .2. • 

1  5.,2.,5.,?,,0.,?.».45,.7,.95,.13,I,65»1.9,2.4/ 

OATA  WFIGSS1  /?. 7330400.2. 3012257. 4. 0346495. 3. 272 1 61 6 .2 . 5908 7S. 
13.4321957.3.760460 J, 6. 4257773. 3. 5155762. 3.11 3781 .3. 1443458/ 

OATA  WEIGSS?  /  1.5697457. 2. O6OAI03. 1.9951426, 2. 3051969, 2. 5269964. 
1  2. 5539495, 2. 73725 33. 2. 86350 11, 3. 2 152662, 3. 4443974, 3. 661 3087/ 

OATA  lNlT.NEFOIN/O.O/ 

OATA  LMETH.lC5.MG.MAlNT.IFST/5*0/ 

DATA  AL»TL,SP,SP1«TH«0IST »RPF «WRB/8*0,/ 

OATA  TMETH,VSC,WRI8/3*0./ 


NOTE-  GROUNO  SUPPORT  TYPE  =  IST .ADDITIONAL  SUPPORT 
1ST, IAS  ARE. . 

1  IF  NO  SUPPORT  REQUIRED 

2  IF  ROCKflOLTS  ARE  RFING  INSTALLED 

3  IF  SHOTCRETE  IS  RE1NG  INSTALLED 

4  IF  STEEL  RIB  SETS  ARE  BEING  INSTALLED 

5  IF  LAGGING  IS  SUPPORT ( ONLY  IAS  MAY  *5) 

FIRST  TIME  INITIALIZATION 


■  IAS 


5  PRINT  10 

10  FORMAT!//, IX, ,28H 
POINT  11 

11  FORHATIlX.* 

IT  SPACING 

PPINT  12 

12  FORMAT (IX,* 

IE  PT 

I F ( M  A  XPSS  .NF. 


PRIMARY  GROUNO  SUPPORT  1 

ROD  EXCAVATION  UNSUPPORTED  INTERFERENCE  SUPPOR 
THICKNESS  CROWN  AND/  ADDITIONAL* 1 

TYP 


PROCFSS  LENGTH-MAXFT  LENGTH  FT 
IN  OR  SIOES  SUPPORT*) 

0)  maxps=maxpss 

OO  14  Isl.WAXPS 

PRINT  13.(PSST(I.K).K=1.9) 

13  FORMAT  (F7.?.F10.?,2F14.2.2F11.2,FI0.2.2F13.2) 

14  CONTINUE 
PRINT  15 

15  FORMAT (IX,*  NOTE.  EXCAVATION  PROCESS  *5  IN0ICATF5  ANY  PROCESS  OTME 
IP  THAN  THOSE  IN  TABLE*.//) 

FXGS*X 
IN  I T  =  1 

lFINEEOIN  .FQ.  0)  GO  TO  3000 
NEFOIN*0 

GO  TO  6 


GRNSUP 

GRNSIJP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

C-PNSUP 

GPNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GPNSUP 


INTIIALIZATION  EACH  ENTRANCE  GRNSUP 

GRNSUP 

ENTRY  GROUN  GRNSUP 

IFI1N1T  .NE.  0)  GO  TO  6  GRNSUP 

NEEDINil  GRNSUP 

GO  TO  5  GRNSUP 

6  MAlNTsfl  GRNSUP 

AOV*0.  GRNSUP 

DPMGS*0.  GRNSUP 

AOVLOS*0.  GRNSUP 

PMGLOS*0.  GRNSUP 


26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3B 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
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GRNSUP 


000965 
000066 
000067 
000070 
000071 
000072 
000073 
000074 
000075 
C00100 
COO  1 03 
000105 
000106 
000111 
000114 
000'  16 
000120 
000122 
000124 
000127 
000132 
000132 
000134 
009134 
000136 
000141 
000143 
000194 
000146 
000150 
000152 
000153 
000156 
000160 


lar  =  o 

WR 18=0 • 

irsT=o. 

VRR=0. 

RPF  =  0 
SP  =  0 
VSC  =  0 

00  2S  I=1.MA«PS 

IF  (P5STII.il  .LE.  ROD)  GO  TO  30 
25  CONTINUE 
30  IP  =  I 

DO  36  !=1P.MA*PS 

TFIPSST(l.l)  .NC.  PSSTC1P.11)  GO  TO  36 
IPPST=PSST (1.2) 

IF  (1PP5T.EO.JHETH)  GG/O  40 

35  CONTINUE 

36  10=1 

00  37  J=IP,IO 

IF ( PsST ( Jt 2 1  .EO.  5)  GO  TO  39 

37  CONTINUE 
GO  TO  1800 

39  IP=J 

GO  TO  42 

40  IP-1 

42  LMETH=PSST ( IP. 2) 

TMFTHiJHFTH 
AL  =  PSST ( I P  *  3 ) 

TL=P66T ( IP. 4) 

1 5T  =PSST (IP. 5) 

SP=PSST ( IP. 6) 

THsPSST ( I P . 7 ) 

ICS=PS6T ( I P . R ) 

I AS»PSST ( IP. 9) 

MG*MG5 1 1ST  1 

c 

c  STATUS  CHFC*  FOR  GROUNO  SUPPORT 


000162 

01 

ST=x-*GS 

000164 

IF 

(1FXCA 

.FO, 

.  0) 

GO  TO  41 

000165 

IF 

( 01  ST 

.LF. 

TL) 

liexca=o 

000171 

43  IF 

(01ST 

.GT. 

AU 

L I E  *CA  =  1 

0001T5 

IF 

(OIST 

.LT. 

TL) 

MAIN! =1 

000201 

000203 


000214 

000217 

000224 


c  COMPUTING  LAROR  TIME  USED  FOR  THIS  ACTIVITY 

c 

GSTluE=OSTIMr.OT 

c  COMPUTING  MATrRIALS  FOP  GROUNO  SUPPORT 

GO  TO( 1000.200.300*400.500) . 1ST 

c  COMPUTING  GROUNO  SUPPORT  USING  ROCK  BOLTS 

C 

200  IF(MG  .EO.  1)  MA1NT»1 

8PF*3.1415*0/ <2*.866*(SP>**2> 

VRB*. 284*3.1415*0 


07/25/72 

GRNSUP 

81 

GRNSUP 

82 

GRNSUP 

83 

GRNSIJP 

84 

GRNSUP 

85 

GRNSUP 

86 

GRNSUP 

87 

GRNSUP 

88 

GPNSUP 

89 

GRNSUP 

90 

GRNSUP 

91 

GRNSUP 

92 

GRNSUP 

93 

GRNSUP 

94 

GRNSUP 

95 

GRNSUP 

96 

GRNSUP 

97 

GRNSUP 

98 

GRNSUP 

99 

GRNSUP 

100 

GRNSUP 

101 

GRNSUP 

102 

GRNSUP 

j  03 

GRNSUP 

104 

GRNSUP 

105 

GPNSUP 

106 

GRNSUP 

107 

GRNSUP 

108 

GRNSUP 

109 

GRNSUP 

110 

GRNSUP 

in 

GRNSUP 

112 

GRNSUP 

113 

GRNSUP 

119 

GRNSUP 

115 

GRNSUP 

116 

GRNSIJP 

ilF 

GRNSUP 

118 

GRNSUP 

119 

GRNSUP 

120 

GRNSUP 

121 

GRNSUP 

122 

GRNSUP 

123 

GRNSUP 

129 

GRNSU“ 

125 

GRNSUP 

126 

GRNSUP 

127 

GRNSUP 

128 

GRN5UP 

129 

GRNSUP 

130 

GRNSUP 

131 

GRNSUP 

132 

GRNSUP 

133 

GRNSUP 

1 34 

GRNSUP 

135 
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000226 

000231 

00023A 

000236 

000241 

000242 

000246 


000247 

0002S2 

000254 

000257 

00026i 

000263 

000270 

0D027S 

000276 

000301 

000304 

000306 

C00306 

000315 

000320 


000321 

000323 

000324 

000326 

000330 


000340 

000342 

000346 

000347 

000347 

000351 

0003S3 

000353 

000355 


GO  TO  1000 

COMPUTING  GPOUNO  SUPPORT  USING  SHOTCRETE 

IF (MG  .FO.  11  MA TNT* 1 
IF  (ROO  .LF.  25.1  GO  TO  1900 
IF  (ICS  .EO.  II  GO  TO  106 
VSC*3. 141S»0»TM/(324.»2. 1 
GO  TO  310 

VSC*3.»3.14lS»0»TH/(324.*4.1 
00  TO  1000 

COMPUTING  GPOUNO  5UPP0RT  U5£  OF  STEEL  RIBS 

IF (MG  .EO.  11  MA1NT-1 
00  410  1*1 «9 

IF  (65C0EFd.il  .LE.  ROOl  GO  TO  415 
CONTINUE 
IP*I 

IF(SSC0EF(IP«1.21  .EO.  TMETM1  IPmIPM 
PLO*0*SSCOEF ( 1 P » 3 1  »0*SP*CS 
00  420  1*1.11 
PK*(l«6)»2«l 
IF  (0  .LE.  PK1  GO  TO  422 
i  CONTINUE 
GO  TO  19S0 

’  66WEIG=WEIGSS2(ll»( 1 0 .••-31 #PL0A0»«E1G551 (I) 

I  WPIfl=3.14l5*0*55MElG 
I  GO  TO  10C0 

OETERMINING  WHICH  C05T  CALCULATION  TO  USE 

OETEPMINING  A001T10NAL  5'JPPORT  COMPUTATIONS 

1  IFIIF5T  .EO.  11  GO  TO  1050 
1 F5T* 1 
SP1*SP 
MG»MGS(IASI 

GO  TOI1050.1020.1030. 10A0.1050I  .IAS 

WITH  AOOITIONAL  SUPPORT  »  ROCK  BOLTS  SET  UP  BOCKBOLT 

0  I F ( 1ST  .NE.  31  GO  TO  1025 
IF (ROO  .GT.  SO. 1  GO  TO  1050 
SP*5. 

GO  TO  200 

5  IF ( 1ST  .NE.  41  GO  TO  1028 
SP*5. 

GO  TO  200 

8  1FISP  .EO.  0.1  5P«5. 

GO  TO  200 

AOOITIONAL  5UPPORT  «  SHOTCRETE  SET  UP  FOR  SHOTCRETE  ( 


07/2S/72 

GPNSUP 

136 

grnsup 

137 

GPNSUP 

138 

GRNSUP 

139 

GPNSUP 

140 

GPNSUP 

141 

GPNSUP 

142 

GPNSUP 

143 

GPNSUP 

144 

grnsup 

145 

GRNSUP 

146 

GRNSUP 

147 

GRNSUP 

148 

GRNSUP 

149 

GRNSUP 

ISO 

GPNS'JP 

!51 

GPNSUP 

152 

GRNSUP 

153 

GPNSUP 

154 

GPNSUP 

1S5 

GRNSUP 

156 

GRNSUP 

157 

GRNSUP 

158 

GRNSUP 

159 

GRNSUP 

160 

GRNSUP 

161 

GRNSUP 

162 

GRNSUP 

163 

GPNSUP 

164 

GPNSUP 

165 

GPNSUP 

166 

GRNSUP 

167 

GRNSUP 

168 

GRNSUP 

169 

GRNSUP 

170 

GPNSUP 

171 

GRNSUP 

172 

GRNSUP 

173 

GRNSUP 

174 

grnsup 

175 

GRNSUP 

176 

GPNSUP 

177 

GRNSUP 

178 

GRNSUP 

179 

GRNSUP 

180 

GRNSUP 

181 

GRNSUP 

1«2 

GRNSUP 

183 

GPNSUP 

184 

GRNSUP 

185 

GRNSUP 

186 

GRNSUP 

187 

GPNSUP 

IBB 

GRN5UP 

189 

GRN5UP 

190 
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07/2S/72 

0003S6 

1030 

IFITH  ,  EO.  0.)  TH«=  .5*0 

GRNSUP 

191 

000361 

GO  TO  300 

GRNSUP 

19? 

c 

GPNSUP 

193 

c 

ADDITIONAL  SUPP0RT«S  TEEL  RIPS  SET  UP  STEEL  RIBS  COMPUTATION 

GRNSUP 

194 

c 

GPNSUP 

19S 

00036? 

1040 

1 E  (1ST  .NF.  ?)  GO  TO  1045 

GPNSUP 

196 

000364 

SP  =  4  • 

GPNSUP 

197 

000366 

GO  TO  400 

GRNSUP 

198 

000366 

1 04S 

IF(SP  .EO.  0.1  SPe4 • 

GPNSUP 

199 

000370 

GO  TO  400 

GRNSUP 

?00 

C 

GRNSUP 

?01 

C 

DETERMINING  WHICH  COST  CATEGORY  TO  USE 

GRNSUP 

?0? 

c 

GRNSUP 

?03 

000371 

1050 

lFMlAS  .HE.  51  •  AND .  (IAS  .NE.  Ill  GO  TO  1060 

GRNSUP 

?04 

000401 

GO  TO  (1100.1200. 1300. 1400  1  .  1ST 

GPNSUP 

?05 

000411 

1060 

IFI1AS  .HE.  ?!  GO  TO  1070 

GRNSUP 

?06 

000413 

GO  TO  (1?00.1?00.1500. 1600. 1?00>.  1ST 

GRNSUP 

?07 

0004?4 

1070 

1M1AS  .HE.  3)  GO  TO  1080 

GPNSUP 

?08 

0004?6 

GO  to  (1300.1500.1300.1700.13001  .1ST 

GPNSUP 

?09 

000437 

1080 

IE ( I  AS  .HE.  41  GO  TO  1090 

GPNSUP 

?10 

000441 

GO  TO  (1400.1600.1700.1400.1400)  .1ST 

GRNSUP 

?11 

0004S? 

1000 

GO  TO  1 8?5 

GRNSUP 

?1? 

c 

GRNSUP 

?1  3 

c 

COMPUTING  ADVANCE  AND  COST  WITH  NO  SUPPORT 

GRNSUP 

?  1 4 

c 

GPNSUP 

?15 

0004S3 

1100 

FXGS-X-TL 

GPNSUP 

?  1 6 

0004S5 

GO  TO  ?000 

GPNSUP 

?  1  7 

c 

GPNSUP 

?1  8 

c 

COMPUTING  ADVANCE  AND  COST  WITH  ROCK  BOLTS 

GPNSUP 

?  1 9 

c 

GRNSUP 

??0 

000456 

1?00 

AOV»RATFRP*OT/PPE 

GRNSUP 

221 

C00461 

FXGS  =  ADV ♦ XGS 

GRNSUP 

??? 

000463 

RRLBS=AOV»PPE*WRB 

GPNSUP 

??3 

000465 

0PMG5  =  PPLBS*llCS 

GRN5UP 

??4 

000467 

PMGSsPMGS.OPMGS 

GRNSUP 

??S 

000470 

GO  TO  ?000 

GRNSUP 

??6 

c 

GRNSUP 

22  7 

c 

COMPUTING  ADVANCE  and  COST  USING  SMOTCRETE 

GRN5UP 

??8 

c 

GRNSUP 

??9 

000471 

1300 

A0V=RATE5C*0T/VSC 

GRNSUP 

?30 

000474 

EXGS=XGS«ADV 

GPNSUP 

?31 

000476 

curo*Anv»vsc 

GPNSUP 

?3? 

000477 

OPMGs=curn»ucsc 

GRNSUP 

?33 

OOOSOl 

PMG5=PMGS»0PmGS 

GRNSUP 

?34 

OOOSO? 

GO  TO  ?000 

GRNSUP 

?3S 

c 

GRNSUP 

?36 

c 

COMPUTING  advance  AND  COST  USING  STEEL  RIBS 

GRNSUP 

237 

c 

GRNSUP 

?38 

000503 

1400 

AOV=RATESS«DT»SP 

GPNSUP 

?39 

O0OS06 

EXGS=XGS«ADV 

GRNSUP 

?40 

000S10 

SRLBS:(AOV/SP)*WRIB 

GRNSUP 

?41 

00051? 

OPMGS=SRLBS*UCS 

GRNSUP 

?4? 

000514 

PMGS*PMGS«OPMGS 

GRNSUP 

?43 

000515 

GO  TO  ?eoo 

GRNSUP 

?44 

c 

GRNSUP 

245 
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GRNSUP 


07/25/7? 


000516 

00052* 

000526 

000527 

000531 

000535 

000536 


000S37 

0005*3 

000S51 

000S53 

0005S6 

000S60 

000563 

00056* 


000565 

000573 

000575 

000577 

000501 

000*0* 

000506 


000606 

00C612 

00061? 

000613 

000621 

000621 

000622 

000626 

000626 

000627 

000633 

000633 

000635 

000636 


0006*0 

'.-,16^? 


C  COMPUTING  ADVANCE  ano  cost  using  shotcrete  and  rock  bolts 
c 

1500  AOV*  <RATERR/RPF.RATESC/VSCI*0T/2 
FXGT  *XGS*AOV 

cuyosaov*vsc 
RRlBSiA0V*RPF*WR8 
OPMGS«CUYO*UCSC  »RBLBS*UCS 
PHGS«BMGS*OPMGS 
GO  TO  2000 

C  COMPUTING  COST  ANO  AOVANCE  USING  STEEL  RIBS  ANO  ROCK  BOLTS 
C 

1600  IF  1 1ST  .EO.  *1  SP.SP1 

AOV* (PATF5S*SP*RATER0/BPf I *OT/2. 

FXGS«XG5«APV 
SRLRS« ( AOV/SPI *WRIB 
RRLBS* AOV*RPF*WRB 
0PMG5* <  5RLR5 . RRLBS I *UCS 
PMGS*PMGS‘OPMGS 
GO  TO  2000 
C 

C  COMPUTING  AOVANCE  ANO  COST  USING  SHOTCRETE  AND  STEEL  RIBS 

C 

1700  ADV*<RATESC/VSC.RATESS*SPI*0T/2. 

FXGSsXGS«AOV 
CUYD*AOV»VSC 
SPLR5*  <  A0V/5P I *WRIB 
0OMGS«CUYD»UCSC»SRLBS*UCS 
PUGS«PMG5*0PMGS 
GO  TO  2000 
C 

C  ERROR  MESSAGES 

C 

1800  PRINT  1801 

1801  FORMAT  </l X.*  UNARLE  TO  PERFORM  GROUNO  SUPPORT. CANNOT  PINO  EKCAVATI 
ION  METHOD  IN  PSST  TABLE  ANO  NOOTHER  NETHOO  IS  IN  TABLE*! 

GO  TO  1575 

1825  PRINT  1826. IAS 

1826  FORMAT  < //I X . •  AOOITIONAL  SUPPORT  *.I5.*  IS  N0NEXI5TANTIN  PROGRAM* I 
GO  TO  1975 

\co°i  FOsmaTMxUsh  UNARLE  TO  PERFORM  SUPPORT. SHOTCRETE  CANNOT  KE  USEO  1 

IF  DOO  IS  LESS  than  ps  ) 

GO  TO  1975 

1 950  PPTNT  1 9S 1 

1951  FORMAT (85HUNABLE  TO  PERFORM  SUPPORT  STEEL  RIB  HEIGHT  INOETERMINATE 

1  FOR  DIAMETER  GREATER  than  3*  1 

1975  FXG5«XGS 
FPACT*0. 

STOP 

C 

C  COMPUTING  ACTUAL  GROUNO  SUPPORT  IP  TOO  CLOSE  TO  PACE  OR  BETONO 

c 

2000  OI5T 1 *X-TL 
FPACT«l. 


GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 

GRNSUP 


2*6 

2*7 

2*8 

2*9 

250 

251 

252 

253 
2S* 

255 

256 

257 

258 

259 

260 
261 
262 
263 
26* 

265 

266 

267 

268 

269 

270 

271 

272 

273 
27* 

275 

276 

277 

278 

279 

280 
281 
282 
283 
28* 

285 

286 

287 

288 

289 

290 

291 

292 

293 
29* 

295 

296 

297 

298 

299 

300 
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GRNSUP 


07/25/72 


000644 

000646 

000650 

000653 

000654 

000657 

000660 

000662 

00066S 

000667 


000670 

000672 

000675 

000676 

000676 


000676 


000701 

900711 

000717 

000725 

000733 

000735 

000735 

000737 

000743 

000744 

000754 

000762 

000764 

000764 

000766 

000772 

001002 

001002 

001003 


IMMAINT  ,fO.  11  GO  TO  2500 
IF  (Fxr-S  .LE,  OIST11  GO  TO  2005 
FRACT=(OISTl-XGS)/AOV 
A0V*0!ST1-XGS 
A0VL0S=FXG5-(X-TL) 

GSL0S=G5L0S«A0VL0S 

fxgs=xgs»aov 
PMGLOS=OPMGS» (1.-FRACT1 
PMGSiPMGS-PMGLOS 
200S  GO  TO  3000 

c 

C  COMPUTING  FEET  LOST  FOR  GROUND  SUPPORT  IF  IN  MAINTENANCE 

C  LE  FOR  ALL  OT 


2500  PMf.S*PMGS-DPMGS 

GSLOS=GSLOS* (FXGS-XGS) 

FXGS=XGS 
FRACT  - 0 
3000  CONTINUE 

COMPUTING  UP  TIME  OF  GROUNO  SUPPORT 
GSUTlM*GSUTIM.FRACT*OT 
COMPUTING  PLANT  ANO  EOUIPMENT  COSTS 

GO  TO  3025 


IF ( ( 1ST 

•  EQ. 

2) 

.OR. 

(IAS  .EQ. 

2) ) 

IF ( (1ST 

•  NE. 

3) 

.ANO. 

(IAS  .NE 

.  3) 

IF ( (1ST 

•  EO. 

S) 

.OR. 

(IAS  .EQ. 

5)1 

IF ( ( 1ST 

.EO. 

1) 

.OR. 

(IAS  .EO. 

1)1 

GO  TO  3015 

OTT-OT/2. 

GO  TO  3020 
3015  OTT*OT 

3020  GSPLANrGSPLAN*OTT»FRACT»ESCPLA 
GO  TO  3050 

3025  IF  ( ( 1ST  .PQ.  51  .OR.  (IAS  .EQ.  51)  GO  TO  3027 
IF ( (1ST  .ft).  1)  .OR.  (IAS  .EO.  1)1  GO  TO  3027 
OTT=OT/2. 

GO  TO  3030 
3027  DTT*OT 

3030  GSPL AN*GSPLAN‘OTT»FRACT»ERRORI 

IF ( ( 1ST  .EQ.  3)  .OR.  (IAS  .EQ.  3)>  GO  TO  3015 
3050  CONTINUE 
RETURN 
ENO 


GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
OR  IF  ID  GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 
GRNSUP 


•FOLLOWING  VARIABLES  EOUIVALENCEO  BUT  NOT  REFERENCED 


NTRAIN 

NTRUCK 

ITRAIN 

L TRUCK 

1FILO 

LIFILD 

IFILLO 

LNTROA 

LLTRAN 


301 

302 

303 

304 

305 

306 

307 
306 

309 

310 

311 

312 

313 
114 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 
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ORNSUP 


0T/2S/T2 


LLTRUK 

LNTRAN 

I.NTRUK 

IHOVE 

XT 

XOE 

PC. 

NVEHCL 

LVEHCL 

NTOA 

LLVHCL 

LNVHCt 

JNOVE 

imeth 

xe 

PR 
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07/2S/T2 


000002 

000002 


000002 

000002 


000002 


SUBROUTINE  GSMAIN 


CS  OF  THOSE 


FLrurkJT-PBIM«RY  GROUND  SUPPORT 

GENERAL  P30CESG-RDC.<B0LTS. steel  rib  sets. shotcrete. COMBINATION 


ACTIVITY-MAINTENANCE 
common  /GRNO/  PSST (60.9) .MAXPSST.  UCS .UCSC «R ATERB.RATESC.RA TESS 

1,  GSLOS,IAS,IST.E»nD»I.ESCPLA.GOOW.GSFTnO.MA«PSS 

COMMON  /wheels/  ae.ae.ama*. AMAXL. Am inl.rsl. CARCAP.CP.de. OE.OT AS 

1,  DTMA.DTU.EL.EC.ER.FT.HPA.HPEA.HPEV.HPEA.HPFV.HPV.LOCO.MC.ML 

2,  NCAPS.N°0IM  iNTD.NTM.NTMAX.XP.NTMILP.NTMLPP.NTRACK.SL 

3,  TCURV*  (?0).TCIIPVYI?0).THAINT.TWE.VO.VS.VE.VF,VMAX.MC.WL.XOS 

4,  MAXLD.NUMLD.LO'iE.OUC.wnC. STATUS  1361. why  (24)  .MLTYP  .WMR.ECOnEQ. 

5  ECONSS  *EL  DCD. EMUCKC.ETR ACK ,ESKI TC.EUNLOA.ERMAIN . I IBORF* 

6COMMONI/OLDCOM/1 If ILO^'STDP (251 .KUNLO.LSTOP.LVEHCL.NRYBY.NSWCM 

1,  NTROA. NVfHCL. NUMSWT. SWITCH (20). TEC (2S). TOPI 2S1.TST AT (2S.4) 

2,  UTIME (2S! .LOADR.HUKDT.XGS. IEXCA.MGSI5) .MCV.MFLAGC. DUMMY (20) 
COMMON  /NEWCDM/  L I E ILO .LKS TOP  I  2S>  .LKUNLO .LLSTOP.LL VMCL .LnRYBY 

1.  lNSWCH.LNTRDA.LNVHCL.LNMSWT.ESWTCH(20).ETEC(251.ET0P(2S) 

2.  FTSTAT (25.4) .FUTIME (2S) .LLOADR.LMUKOT .FXGS.L IEXCA  »LMGS 15) 

3.  lmcv.lmelac.fduhmy (IS) 

DIMENSION  COMOLO (260) .COMNEW t 260 ) . 


GSMAIN 

GSMAIN 

GSMAIN 

GSMAIN 

GSMAIN 

GSMAIN 

GSMAIN 

SUPPORT 

SUPPORT 

WHEELS 

WHEELS 

WHEELS 

WHEELS 

WHEELS 

WHFELS 

WHEELS 

WHEELS 

wheels 

WHEELS 

WHEELS 

WHEELS 

WHEELS 

WHEELS 


2 

3 

4 

5 

6 

7 

8 
2 
3 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


000002 


000002 


000002 

000002 


000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

C 

C 

C 

C 

c 

C 

c 


LTSTAT(2S.4).ITSTaT(25.4) 

EQUIVALENCE  ( NVEHCL. NTRA IN. STRUCK ).  ILVEHCL.LTRA I N.L TRUCK) 

,  (CGMQLD , I E ILO  * • (COMNEW, L IFILD, 1FILL0) . (NTOA.LNTROA) 
(ETSTAT,LTSTATI.(TSTAT.ITSTAT) 

I,  (LLVHCL.LLTRAN.LLTRUK).  (LNVHCL.LNTRAN.LNTRUK) 

PftMMON  /At L  /  XToSTPoIAofiOOoCS.TAMRoFLOW.lFLAG 

,  AT  tDoEoSK.TfOToXoP»oXMAX • TM A  X tOX oDVo TPR1NT tOTPPNT  o IMOVfoJMtTH 
(,  t SHE T. REPORT. OPPCT. TO. XO. XOISCH,  ICHNG.KCHNG.TCHNG 
EQUIVALENCE  ( JMOVE.IMOVE) . (1METH.JMETH) 

COMMON/MONEY/  JMMhM .DJM.O JMMH.O JMRD.OJMRMM.OMAINT .OJMBM.DJMGS 
|  ,  PMGS. JMCV.OJMEC.RDPLAN.HPLANTtGSPLAN 

>,  ECPLAN.RDTIME.HTIME(2),r.STIME.ECTlME  rcAT1M  rriiTiM 

COMMON/PERERM/  ROUT  I M, pod T IM ,UMHT IM ,DMHT IM.GSUT 1M . GSOTIM.ECUT 1M 

I.  ECDTI“ .  GDAY  .GADV.GEND.GBEG  ,, 

COMMON /LABOR/  POMEN (10.2) , H«EN ( 1 0 . 2. 2) • GSMEN ( 10 . 2) .ECMENI10.2) 
RFAL  |MMHM,Ln,LOR  .18!  T.  I  BURN .L STEEL .JMCV 
oi“Ensidn  r,(«) 

EQUIVALENCE  (G.XT) . (XE.XOE) « (PR.PC) 

DIMENSION  GSMT  (S) .DOWNT (5) .  GOOWN(S) .SETDOW(S) 

OATA  GSMT/  S»0./ 

DATA  DOWNT /S*  0  •/ 

OATA  GDGWN/S*7.S/ 

DATA  SE TDOW/S* .5/ 

OATA  INC/I/ 

OATA  INIT.NEEDIN/O.O/ 


NOTF-  GROUND  SUPPORT  TYPE  ■IST.AOOITIONAL  SUPPORT  »IAS 
1ST. IAS  APE,. 

1  JE  NO  SUPPORT  REQUIREO 

2  IE  ROCKflOLTS  ARE  BEING  INSTALLED 

3  IE  SHOTCRETE  IS  BEING  INSTALLED 

4  IE  STEEL  RIB  SETS  ARE  BEING  INSTALLED 


wheels 

16 

wheels 

17 

wheels 

IS 

WHEELS 

19 

WHFELS 

20 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

11 

ALL 

12 

ALL 

13 

ALL 

14 

GSMAIN 

12 

GSMAIN 

13 

GSMAIN 

14 

GSMAIN 

15 

GSMrIN 

16 

GSMAIN 

17 

GSMAIN 

18 

GSMAIN 

19 

GSMAIN 

20 

GSMAIN 

21 

GSMAIN 

22 

GSMAIN 

23 

GSMAIN 

24 

GSMAIN 

25 

goleta 

fortran 

1.3  •  AUTO  RFL  •  (07-12-72)  6SM*IN 

07/2S/72 

c 

S  IF  LAGGING  IS  SUPPORT (ONLY  IAS  NAY  ■$) 

gsmain 

26 

c 

gsmain 

27 

000002 

1 

I N I T  *  1 

GSMAIN 

26 

000003 

00  4  J«1 . 5 

gsmain 

29 

000005 

(FIGDOW  ,NE.  0.)  GOOWN  ( J) *GOOF 

GSMAIN 

30 

00000T 

IFIGSFTOO  .NF.  0.)  SETOOW ( J) ■GSETOO 

gsmain 

31 

000012 

4 

CONTINUE 

GSMAIN 

32 

000014 

IF  (NFF01N  .EO.  0)  00  TO  ISO 

gsmain 

33 

000015 

nfeoin«o 

gsmain 

34 

000016 

GO  TO  5 

GSMAIN 

3S 

c 

NORMAL  ENTRY 

GSMAIN 

36 

000016 

ENTRY  GSMNT 

GSMAIN 

37 

000023 

IFIINIT  .EO.  1)  GO  TO  5 

gsmain 

38 

000025 

NfEOIN«I 

GSMAIN 

39 

000026 

GO  TO  1 

gsmain 

40 

000027 

5 

in  (IAS  ,NE.  1)  .ANO.  HAS  .NE.  SI)  INC-2 

gsmain 

41 

000040 

00  110  I»2t4 

gsmain 

42 

000042 

OOWNaOONNT(I) 

gsmain 

43 

000044 

GSM*GSMT(I) 

GSMAIN 

44 

00004S 

MG«MGS( 1 1 

GSMAIN 

4S 

c 

GSMAIN 

46 

c 

DETERMINING  IE  GROUNO  SUPPORT  TYPE  I  IS  IN  USE  OURINO  OT 

gsmain 

47 

c 

GSMAIN 

40 

000047 

trill  .EO.  1ST)  .OR.  (I  .EO.  IASI)  00  TO  SO 

gsmain 

49 

c 

gsmain 

50 

c 

determining  ir  ground  support  type  1  IS  in  maintenance 

gsmain 

51 

c 

gsmain 

S2 

0000S6 

IE (MG  .EO.  0)  GO  TO  100 

GSMAIN 

53 

c 

gsmain 

S4 

c 

REOUCING  MAINTENANCE  TIME  BY  OT  EOR  GROUND  SUPPORT  TYPE  I 

GSMAIN 

55 

c 

GSMAIN 

S6 

000057 

2$ 

DOWN  «DOWN-DT 

GSMAIN 

57 

000061 

IF (DOWN  ,GT.  0.)  GO  TO  100 

GSMAIN 

SB 

c 

gsmain 

S9 

c 

REMOVING  GROUNO  SUPPORT  TYPE  I  FROM  MAINTENANCE 

GSMAIN 

60 

c 

GSMAIN 

61 

000063 

O0MN«0. 

GSMAIN 

62 

000063 

LMG*0 

gsmain 

63 

000064 

GO  TO  100 

GSMAIN 

64 

000064 

50 

IF (MG  .EO.  1)  GO  TO  25 

GSMAIN 

6S 

000066 

GSM*GSM*DT/INC 

gsmain 

66 

c 

gsmain 

67 

c 

DETERMINING  IE  OROUNO  SUPPORT  TYPE  I  IS  DUE  EOR  MAINTENANCE 

gsmain 

68 

c 

gsmain 

69 

000072 

IF  (GSM  .LE.  GOOWN(D)  GO  TO  100 

gsmain 

70 

c 

gsmain 

71 

c 

PUTTING  GROUNO  SUPPORT  TYPE  I  INTO  MAINTENANCE 

gsmain 

72 

c 

gsmain 

73 

00007S 

LMG=1 

gsmain 

74 

000076 

DOVNsSETOOW(I) 

gsmain 

7S 

000077 

PMf,SsPMGS*OJMGS 

gsmain 

76 

000101 

GSHafl . 

GSMAIN 

77 

000102 

G50TIM«GSOTIM.OONN 

gsmain 

78 

000104 

100 

OOMNT 1 I l-OOWN 

gsmain 

79 

000106 

GSMT ( I) «gsm 

gsmain 

SO 
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GSMAIN 


0T/25/72 


ooono 

000111 

090113 

000113 

000114 


LMGS(I)*LMG 
110  CONTINUE 
150  CONTINUE 
RETURN 
END 


'Following  variables  equtvalenceo  but  not  referenced 


NTRAIN 

NTRUCK 

LTRAIN 


LTRUCK 

IFILO 

L1FILO 

1FILLD 

LNTRDA 

LLTRAN 

LLTRUK 

LNTRAN 

LNTRUK 

IMOVE 

JNETH 


AT 

XOE 

PC 

NVEHCL 

LVEHCL 

NTOA 

LLVHCL 

LNVHCL 

JMOVE 

INETH 

XE 

PR 


GSHAtN  61 
GSMAtN  82 
GSHAtN  63 
GSMAIN  64 
GSMAIN  65 


VI-113 


T 


SUBROUTINE  ENVIR 


GOLETA  FORTRAN  1.3  •  AUTO  PEL  •  (07-12-72) 


07/25/72 


SUBROUTINE  ENVIR 

ENVIR 

2 

c 

ENVIR 

3 

c 

ELEMENT  -  ENVIRONMENTAL  CONTROL 

ENVIR 

4 

c 

GENERAL  PROCESS  -  VENTILATION  1  COOLING 

ENVIR 

s 

c 

•••AMEATA  must  be  retrieved  EROM  ROCK  disintegration  ROUTINE 

ENVIR 

6 

c 

•••ATROCKA  AAA  TUNNEL  EILE  INPUT 

ENVIR 

7 

c 

ENVIR 

8 

006002 

COMMON  /ALL  /  KT .STR, I A.ROO.CS . TAMB . ELOM, IEL AG 

ALL 

2 

1.  AT.D.E.SK.T.OT.  X .PR.XMAX  »TMAX  *OX .OV.TPRINT.DTPRNT  » IMOVEt JMETH 

ALL 

3 

2.  TSMET. REPORT. OPPCT. TO. X0.X0I5CH,ICMNG»*CHNGiTCHN0 

ALL 

4 

000002 

EOUI VALENCE  ( JMOVE.1MOVE) . ( ImETH. JmETH) 

ALL 

5 

000902 

COMMON/MONEY/  JMMHM.OJm.OJMMH.OJMRO.OJMBMM.OMAINT.OJMBM.DJHGS 

ALL 

6 

1.  PMGS.JMCV.OJMEC.ROPLAN.HPLANT.GSPLAN 

ALL 

7 

2.  ECPLAN. ROTIME.HT IME (21«GSTIM£,ECTIME 

ALL 

§ 

000002 

COmmOn/PERERm/  ROuTIm.ROOTIM.uMnTIM.ONHTIN.GSUTIM.GSDTIN.ECUTIM 

ALL 

9 

1.  ECOTIM.GDAY.GAOV.GENO.GOEr. 

ALL 

10 

000002 

COMMON/LAROR/  RUMEN ( 1 0. 2). HMEN(  10.2.21  .GSMENM0.2I  »rCMEN(10«?) 

ALL 

11 

000092 

REAL  JmMhm.lo.LOB.LSIT.LBURN.LSTEEL.JMCV 

ALL 

12 

000002 

DIMENSION  G(fl) 

ALL 

13 

000002 

EOU IV ALENCF  (G.XT) . (XE.XDE) . (PR. PC) 

ALL 

14 

000002 

COMMON  /ENVC/  MAXMEN.TDTHP.OM.00. VANIN. VAMAX.OG (101. 

ENVIRON 

2 

1  T A  .  TO. WA.EKO.EKT  «C°A  «CKA .REERAT  .AMC(IO)  «  OPR.  EVENT®  .CBtlMP 

ENVIRON 

3 

000002 

EOiHVALPNCE  (THOCK.TAmBi  ,  (HE AT.HEATJI 

ENVIR 

11 

009002 

0 1 Mt NS I ON  OOG (10) 

ENVIR 

12 

000002 

data  init  /o/ 

ENVIR 

13 

000002 

DATA  NEEOIN  /0/ 

ENVIR 

14 

000902 

DATA  °I  /3. 1415927/ 

ENVIR 

IS 

000002 

DATA  OEACT.VEACT.OMP.OOHP.OAV.OOR  /6»0./ 

ENVIR 

16 

000002 

DATA  EACT1.EACT2.EACT3.EACT4.TAV EL H  /5»0./ 

ENVIR 

17 

000002 

DATA  E ACT2A  /0./ 

ENVIR 

IB 

000002 

DATA  OOG  /10«0./ 

ENVIR 

19 

c 

INITIALIZATION 

ENVIR 

20 

c 

ENVIR 

21 

000002 

10  OJMEC  ■  0. 

ENVIR 

22 

000003 

ECDT 1HE«0. 

ENVIR 

23 

000004 

ecutime-o. 

ENVIR 

24 

000305 

IE  (QM  , EU,  0.)  OM  ■  200. 

ENVIR 

25 

000007 

IE  (00  .EO,  0.)  00  ■  106.  .  0.336  •  TOTHP 

ENVIR 

26 

000013 

IE  ( V AM  1 N  .EO.  0.)  VAMIN  ■  SO. 

ENVIR 

27 

000015 

IE  (VAMAX  ,E0.  0.)  VAMAX  ■  1000. 

ENVIR 

28 

OCC017 

IE  (TO  .EO.  0.)  TO  ■  SO. 

ENVIR 

29 

000021 

IE  (WA  .EO.  0.)  HA  ■  0.075 

ENVIR 

30 

000323 

IE  (EkO  .EO.  0.)  EKO  ■  2.0E-9 

ENVIR 

31 

000325 

IE  (EKT  .EO.  0.)  EXT  ■  1.5E-8 

ENVIR 

32 

000327 

IE (CPA  .EO,  0.)  CPA  ■  0,240 

ENVIR 

33 

90Q031 

TE  (CKA  .CO.  0.)  CKA  .  0.0147 

ENVIR 

34 

000033 

IE  (REERAT  ,EO.  0.)  REERAT  ■  2.0E-6 

ENVIR 

35 

000035 

ir  (PR  .EO.  0.)  PR  ■  0.015 

ENVIR 

36 

000037 

OEACT  ■  D  •  PI  /  4. 

ENVIR 

37 

000042 

VEACT  ■  0  •  OEACT . 

ENVIR 

38 

c 

OM P  ■  AIR  VOLUME  RATE  REOUtREO  BY  MANPOWER 

ENVIR 

39 

000043 

OMP  ■  OM  •  MAXMEN 

ENVIR 

40 

c 

OOHP  ■  AIR  VOL.  RATE  REOUIREO  BY  DIESEL  HP 

ENVIR 

41 

000046 

OOMP  ■  00  •  TOTHP 

ENVIR 

42 

c 

OAV  ■  AIR  VOL.  RATE  REQUIRED  BY  AIR  VEIOCIT 

ENVIR 

43 
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07/25/72 

ooooso 

OAV  ■  VAMIN  •  VF ACT 

ENVIR 

** 

C 

oog(n)  ■  air  vol.  Rate  reouireo  by  oilution 

ENVIR 

*5 

C 

or  GAS  N 

ENVIR 

*6 

00905? 

00  50  I  *  I. 10 

ENVIR 

*7 

INK! 

ir  (amciii  .fo.  o. >  go  to  50 

ENVIR 

*8 

OOGdl  *  1.0E6  *  OG(I»  /  AMCIII 

ENVIR 

*9 

0009*0 

50 

CONTINUE 

ENVIR 

50 

C 

OOR  *  OESIGN  REQUIREMENT  AIR  VOLUME  RATE 

ENVIR 

51 

•00062 

on?  «  qmp 

ENVIR 

52 

•0006* 

IF  (ODMP  .GT.  OOP)  OOR  *  OOHP 

ENVIR 

53 

000067 

ir  (OAV  .GT.  OOR)  OOR  b  OAV 

ENVIR 

5* 

000072 

00  70  I  =  1. 10 

ENVIR 

S5 

•0007* 

ir  (OOG(I)  .GT.  OOR)  OOR  ■  OOG(I) 

ENVIR 

56 

000101 

70 

CONTINUE 

ENVIR 

57 

C 

CHECK  OESIGN  REQUIREMENT  VS  ALLOWABLE  AIR  V 

ENVIR 

56 

000103 

TAVEL  *  OOR  /  Vf  ACT 

ENVIR 

59 

000109 

IF  (TAVEL  .LE.  VAMAX )  GO  TO  95 

ENVIR 

60 

000107 

PRINT  90.  TAVEL. VAMAX 

ENVIR 

61 

000117 

00 

FORMAT  ( 33H0VENT ILAT ION  OESIGN  REQUIREMENT .  . FI*. 3. *3H, EXCEEDS  ALL 

ENVIR 

62 

•OWABLE  AIR  VELOCITY  IN  TUNNEL.  .FI*,3.I7M.  RUN  TERMINATED.  » 

ENVIR 

63 

000117 

CALL  EXIT 

ENVIR 

6* 

C 

COMPLETE  INITIALIZATION 

ENVIR 

65 

000120 

05 

FACTI  «  CKA  /  0 

ENVIR 

66 

000122 

FACT2  «  Pi  •  0 

ENVIR 

67 

00012* 

FACT2A  «  EACT2  •  (TA  •  BO.)  /  2. 

ENVIR 

68 

000127 

FACT3  «  XA  •  CPA  •  60. 

ENVIR 

69 

000132 

FACT*  «  1.3  •  0 

ENVIR 

TO 

00013* 

TAVELu  «  TAVFL 

ENVIR 

71 

00013S 

INIT  =  I 

ENVIR 

72 

000136 

IF  (NEEOIN  .EO.  0)  GO  TO  999 

ENVIR 

73 

000137 

NFEOIN  ■  0 

ENVIR 

7* 

0001*0 

GO  TO  100 

ENVIR 

75 

C 

NORMAL  ENTRY 

ENVIR 

76 

0001*0 

ENTRY  ENVIRC 

ENVIR 

77 

0001*9 

TAVEL  ■  TAVELM 

ENVIR 

78 

0001*7 

IF ( INIT  .EO.  I)  GO  TO  97 

ENVIR 

79 

000151 

NEEOIN  *  I 

ENVIR 

80 

000152 

GO  TO  10 

ENVIR 

81 

C 

ENVIR 

82 

c 

COMPUTING  LABOR  TIME  USEO  FOR  THIS  ACTIVITY 

ENVIR 

83 

c 

ENVIR 

8* 

000152 

07 

tCTIME*ECTIME*OT 

ENVIR 

85 

c 

NOTE  ENVIR  NEVER  STOPS  AT  PRESENT  THIS  MAY  BE  CHANGED  IN  THE  FUTU 

ENVIR 

86 

c 

ENVIR 

87 

c 

COMPUTING  UP  TIME 

ENVIR 

88 

c 

ENVIR 

89 

00015* 

ECUTIM*ECUTIM.OT 

ENVIR 

90 

c 

ENVIR 

91 

c 

COMPUTING  PLANT  ANO  EQUIPMENT  COSTS 

ENVIR 

92 

c 

ENVIR 

93 

000156 

ECPLAN«ECPLAN»OX*FVENTP 

ENVIR 

9* 

c 

CALCULATE  COST  OF  PUMPING  WATER  OUT  OF  TUNNEL 

ENVIR 

95 

000161 

OJ^FCbD  JMEC^CPUNP’OMFO  .  •IFIOW.OWATR) 

ENVIR 

96 

c 

CALCULATE  REYNOLOS  NUMBER  FOR  TUNNEL  AIL  FLOW  CONDITIONS 

ENVIR 

97 

000165 

too 

REYNO*TAVEL*O/0.I65 

ENVIR 

98 
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07/25/72 

000170 

OOR  =  TAVEL  •  OFACT 

ENVIR 

99 

C 

OERIVE  NUSSELT  NO. 

ENVIR 

100 

000172 

IF  (RFYNO  .GF.  10000.)  GO  TO  120 

FNVIR 

101 

000174 

IF  (RFYNO  .LF.  2100.1  GO  TO  130 

FNVIR 

102 

000177 

RNUSS=5 .0  ♦  (26.7*  (RE YNO-2100 . ) /  7900  •  I 

FNVIR 

103 

000203 

GO  TO  150 

ENVIR 

104 

000203 

120 

RNUSS  «  0.02  •  REYNO  ••  0.8 

ENVIR 

105 

000210 

GO  TO  150 

ENVIR 

106 

000210 

130 

RNUSS  =  0.5  •  REYNO  ••  0.3 

ENVIR 

107 

C 

CALC  HEAT  TRANSFER  COEFFICIENT 

ENVIR 

108 

000215 

150 

HEATC  *  RNUSS  •  FACTI 

ENVIR 

109 

C 

CALC  HEAT  ADDED  TO  AIR  FROM  WALL  SURFACE 

ENVIR 

iio 

000217 

XWRK=hEATC»(X-XOISCh| 

ENVIR 

111 

000222 

ORFAC  =  (FaCT2»XWRK»TR0CK)  -  ( XWRK»F ACT2A) 

ENVIR 

1 1 2 

C 

CALC  HEAT  AOOEO  TO  AIR  FROM  MACHINERY 

ENVIR 

113 

000226 

OMFAC  ■  HEAT  /  OT 

ENVIR 

114 

C 

CALC  TEMPERATURE  AT  TUNNEL  FACE 

ENVIR 

115 

000230 

TOr«  (ORFAC  ♦  OMFAC)  /  (FACT3  •  OOR)  ♦  TA 

ENVIR 

1 16 

090235 

IF  (TOF  .LE.  TO)  GO  TO  500 

ENVIR 

1 1 7 

000237 

IF  (TAVEL  ♦  100.  .GT.  VAMAX)  GO  TO  400 

ENVIR 

lie 

c 

MAX  VELOCITY  NOT  YET  ACHIEVEO 

ENVIR 

119 

000244 

TAVEL  *  TAVEL  ♦  100. 

ENVIR 

120 

000245 

GO  TO  100 

ENVIR 

I?I 

c 

CALC  MECHANICAL  refrigeration  LOAD 

ENVIR 

122 

000245 

400 

QREFRG  *  OOR  •  FACT3  •  ( TDF  -  TO) 

ENVIR 

123 

c 

CALC  OPERATING  COST  OF  REFRIGERATION  IN  DT 

ENVIR 

124 

000251 

DJMEC  *  DJMEC  •  QREFRG  •  REFRAT  •  OT 

FNVIR 

125 

c 

SELECT  SUITABLE  VFNT  DUCT  VELOCITY 

ENVIR 

126 

000254 

L/l 

O 

o 

VDUCT  «  2380 .  ♦  0.0483  •  OOR 

ENVIR 

127 

c 

CALC  FRICTION  LOSS  OF  AIR  FLOWING  IN  TUNNEL 

ENVIR 

128 

000257 

HTUN  *  (FKT  •  X  •  TAVEL  •  TAVEL)  /  r ACT4 

ENVIR 

129 

c 

CALC  VENT  DUCT  OIAMETER 

FNVIR 

130 

000263 

XWRK  «  ODR  /  (PI  •  VOUCH 

ENVIR 

131 

000266 

DOUCT  «  2.  •  SORT  (XWRK) 

ENVIR 

132 

c 

CALC  FRICTION  LOSS  OF  AIR  IN  VENT  DUCT 

ENVIR 

133 

000271 

HOUCT  «  (  FKO*  (X-XOISCH)  •  VOUCT  •  VOUCT  I/I  1.3  •  ODUCT  ) 

ENVIR 

134 

c 

CALC  AIR  HORSEPOWER 

ENVIR 

135 

000277 

PAIR  «  ODR  •  (HTUN  •  HOUCT)  /  6350. 

ENVIR 

136 

c 

CALC  FAN  HORSEPOWER 

ENVIR 

137 

000302 

PFAN  *  PAIR  /  0.75 

ENVIR 

138 

c 

CALC  VENTILATION  POWER  COST  DjPINS  DT 

ENVIR 

139 

000304 

FKWHR  ■  PFAN  •  0.7452  •  OT 

ENVIR 

140 

000106 

DJMEC  «  DJMEC  •  PR  •  FKWHR 

ENVIR 

141 

000311 

XI  *  QREFRG  •  REFRAT  •  OT 

ENVIR 

142 

00031  3 

X?  ■  PD  •  FKWHR 

ENVIR 

143 

000314 

999 

CONTINUE 

ENVIR 

1 44 

OOP  31 4 

RETURN 

ENVIR 

145 

000315 

ENO 

ENVIR 

146 

•following  variables  eqjivalenced  but  not  referenced 

JMOVE 

JMETH 

XT 

XOE 

PC 

TAMB 
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ENVIR 


OT/ES/T? 


JMOVC 

IMCTM 


u 


SUBROUTINE  MAXADV 


1 

1 

1 


GOLETA  FORTRAN  1.3  •  AUTO  RFL  •  (07-12-72) 


07/25/72 


{ 


c 

c 

000002 


000002 

000002 


003002 

000002 

000002 

000032 

000002 

000002 

000002 

c 

000002 

000003 

000005 

000007 

000010 

000010 

c 

000011 
000016 
DC0020 
000021 
000022 
000024 
000025 
000027 
000331 
030034 
000036 
000040 
003041 
000041 
000043 
000044 
000045 
•FOLLOWING 
I  WOVE 
JMETH 
XT 
xnE 
PC 

JMOVE 

1METH 

XE 

PR 


SUBROUTINE  MAXADV 

COMPUTING  ADVANCE  EACH  DAY  IN  FEET.  STORING  MAXIMUM 

CO“MON  /ALL  /  XT.STR.lA.RQD.CS.T AMR. FLOW.! FLAG 

1 .  AT.D.E.SK.T.OT.X.PR.XMAX.TMAX.DX.DV.TPRINT .DTPRNT . I MOVE . JMETH 

2,  TSHFT.REPORT.OPPCT.TO.XO.XOISCH.ICHNG.XCHNG.TCMNG 
EQUIVALENCE  ( JMOVE. 1MOVE) . (1«FTH,JMFTH) 

COMHDN/MDNEY/  JMMHM.DJM.DJMMH.DJMRD. f) JMRMM ,OM A INT  .DJMBM.OJMGS 
1  ,  PMG5. jmcv.ojmec.rdplan.hplant.gsplan 
2.  ECPLAN.ROT1-E.hT1ME(2I.GSTIME.ECT!ME 
COMMON/PERFPm/  POUT  IN .ROOT 1M,  umht im .ommtim.gsut im.gsotim.ecutim 
1 .  ECDTIM.GOAY.GAnV.GENO.GREG 

CDMMDN/LAROR/  RDMEN (10.2)  .HMEN (10.2.2)  .GSMENI10.2)  .ECMENOO.?) 
REAL  JMMHM.LD.LOR.LBIT.LflURN.LSTEEL. JMCV 
DIMENSION  G ( R ) 

EQUIVALENCE  (G.XT) . (XE.XOE) . (PR. PC) 

OATA  1N1T.NEFOIN/2«0/ 

OATA  DLOX . ROUT /2»0./ 

INITIALIZATION 
l  INI T= 1 

IF  (TSHET  .EO.  0.)  TSHFT *24 • 

OLDX=x 

IFINFEOIN  .EO.  0)  GO  TO  999 

NEEDIN=0 

GO  TO  15 

NDPMAL  ENTRY 

ENTRY  MAXADW 

10  IF ( 1N1 T  .EO.  I)  GO  TO  15 

NEEOlNsi 
GO  TO  I 

15  RDUT-ROUTIM-POUT 

lElRDUT  .EO.  0.)  GO  TO  999 
ADVV=(X-OLDX)/RDUT 
IEIADVV  .LE.  GAOV)  GO  TO  999 
GDAY*(T-T0)/?4. 

gend=x-xoisch 

GPEG-0LDX-XD1SCM 
GADV=ADVV 
999  CONTINUE 
OLDX*X 
RDllT=ROUTlM 
RETURN 
END 

VARIABLES  EOUIVALENCEO  RUT  NOT  REFERENCED 


REPORT 

2 

REPORT 

3 

REPORT 

4 

ALL 

2 

ALL 

3 

ALL 

4 

ALL 

5 

ALL 

6 

ALL 

7 

ALL 

8 

ALL 

9 

ALL 

10 

ALL 

11 

ALL 

1? 

ALL 

13 

ALL 

14 

REPORT 

6 

REPORT 

7 

REPORT 

8 

REPORT 

9 

REPORT 

10 

REPORT 

11 

REPORT 

12 

REPORT 

13 

REPORT 

14 

REPORT 

15 

RFPORT 

16 

REPORT 

17 

REPORT 

IB 

REPORT 

19 

REPORT 

20 

RFPORT 

21 

REPORT 

22 

report 

23 

report 

24 

REPORT 

25 

RFPORT 

26 

report 

27 

REPORT 

28 

REPORT 

29 

REPORT 

30 

REPORT 

31 

REPORT 

32 
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1/ 


V 


SUBROUTINE  REPORR 


OOLETa 

FORTRAN  1.3  •  AJTO  RFL  •  (07-(?-7?) 

07/?5/72 

SUBROUT I NE  RFPORR 

RrPO°T 

33 

c 

rfport 

3A 

c 

PRINTING  INTERIM  PERFORMANCE  PEPORT 

RFPORT 

35 

c 

RFPORT 

36 

00000? 

C04MON  /«LL  /  XT.STP.IA.BODtCS.TAMB.FLOM.IFLAO 

ALL 

? 

1.  AT.n.E.SK.T.OT.X,PP,XMAX,TMAX.DX,OV.TPRlNT.OTPRNT.lMOVE,JMETH 

ALL 

3 

?.  TSHFT  .RF  PnRT,GPPCT.Tn.xn.x!)lsC«.ICHNG.XCHNG.5CHNG 

ALL 

A 

00000? 

EOU I  VALENCE  ( JMCWF.  I MOVE) .  (  t  -<FrH,JMETH) 

ALL 

5 

00000? 

COMMON/MONPY/  JmmmM , 0 JM ,0 JMMh, 0 JmRD, 0 JMBMM.DMA 1NT *OJMBM, 0 JMGS 

ALL 

6 

It  PMC,  St  JMCV.DJMFC.RnPLAN.HPLANT.GSPL AN 

ALL 

7 

?t  ECPLAN.onTIME.HI  IMF (2) t GST  IMF t ECTIME 

ALL 

8 

00000? 

COMMON/PERFRm/  ROHTIM.ROOTI M  tUMHT IM ,OMHT IM  t GSUT IMiGSDTIMtECUTIN 

ALL 

9 

It  ECnTIM.GDAYtGADVtGENOtGBFG 

ALL 

10 

00000? 

COMMON/LAFOW/  RnxfNMOi?)  .HMENI  l(5.?t?l  tGSMENI  10t ?)  ,  ECMEN ( 1 0 1 ?) 

ALL 

11 

00000? 

real  JMMHM.ld.LDB.LR! T tLBURNtL STEEL t JMCV 

all 

1? 

00000? 

DIMENSION  GIF.) 

all 

13 

00000? 

eou i  valence  < g t x t > .  ixEtxoE)  t  (PRtPO 

ALL 

1A 

00000? 

OATA  INIT.NFFDIN/2*0/ 

REPORT 

38 

ooooo? 

DIMENSION  I V A L ( ? 0 ) 

TEST 

? 

00000? 

COMMON/ TEST/ VALUE (30) t NAME (3G) 

TEST 

3 

ltlHEAD(l)O) tJHFAD(IOO) 

TEST 

A 

ooooo? 

FOUIVALFNGr  1 1 VAL t VALUF ) 

TEST 

5 

oocoo? 

DATA  IHFAn/7HTNTFRIM,7H  PERFOPt 7MMANCE  PtTHEPlRTS  t 

rfport 

AO 

17HDAYS  Sit  7HNCE  C0M,7mmenCED  1 7HEXCAVAT t THING  t?»7M  t 

REPORT 

A 1 

27MHEAD ING t  7M  POS I T 1 1 7hON (FFET t7H)  t?‘7H  t 

REPORT 

A? 

37HAVEPAGEt7H  ADVANC.7HF  RATE  I 1 7HFFE T /0Pt7HERATINGt7H  MOHR)  t 

REPORT 

A3 

A7HMAXIMUM,7H  DAILY  t7H ADVANCE t7MDAYS  SIt7HNCE  COMiTHMENCFD  t 

REPORT 

AA 

57HEXCAVAT.7HING  .7m  1 4H  1 7MME AOI NG 1 7M  POSITIt 

REPORT 

A5 

67M0N-BEGIt7HNNING  0.7HF  THAT  .7HDAY (TEEtAHTI  tTMHEAOINGt 

report 

A6 

77H  POSITI ,7H0N-fNn  t 7H0F  THAT.7H  DAY (FE, 7HET )  ,  4H  t 7HAVERAGE 

REPORT 

A7 

8t7H  RATE  F  t  7mOR  THAT.7M  OAY IFF t 7HET/DPER t THAT ING  M,4M0UR). 

REPORT 

AB 

97HCUMHLAT.7HIVF  SUB. THSYSTEM  , 7MPFRF0RM , ftH ANCE . . . 7HELEMENT . 

rfport 

A9 

A7H/MEASU9.7HC  t7H  OPE t 7HRAT I ONA , 7HL  t 7H  St 

REPORT 

50 

B7HUBSYSTE 1 7HM  t7HAVAIL*Bt7HILITY*  t7M  ,7H  UTILIt 

REPORT 

51 

CTH/ATIONt  ,?Ht  ,9«7H - - - ,?H— ,7Mt0PERATt7HI0NAL  A.7HVAILABI, 

REPORT 

5? 

07HLITY  =  IT  t  7HOTAL  SH.7MIFT  TIM,7ME-DOWN  t 7HT IME 1 /T , 7M0T AL  SH. 

REPORT 

53 

E7HIFT  TIM,lMFt7HttSURSYt?HSTEM  UT  t  7HIL  I  Z  A  T 1 1 7M0N=  I  TOT  1 7MAL  SHlFt 

REPORT 

5A 

F7HT  T I  ME- 1  7HD0WN  T 1 , 7HME-IDLF t 7M  T IME ) / 1 7HTOTAL  S  t  7MH1FT  TI, 

RFPORT 

55 

G?HMf/ 

REPORT 

56 

ooooo? 

OATA  JHEAo/7HlNTERIMt7H  C05T  Rt  7MF.P0RT  1 7HOA  YS  SIt7MNCF  COM, 

REPORT 

57 

17MMENCEO  ,7Hr«CAVAT,7HING  ,7H  ,  3H  t 7MAVFRAGF • 7H  COST  P, 

REPORT 

58 

?  7HER  IN  S.7mITU  CUB,7hIC  YABD,7H  EXC AVA . 3MTED . 7HA VERAGE . 

report 

59 

A7H  COST  P,7heR  FOOT  t7H  OF  TUN.7HNEL  1 7H  1 3M  ,7MCUMULAT, 

REPORT 

60 

S7HIVE  COS  t  7MT  SUMMA.7HRY  TO  0 1 7HATE. . (0 1 7HOLL ARS 1 1 7HELEMENT t 

RFPORT 

61 

67H/CATEG0t7MRY  ,7HOIRECT  ,7M  PL t THANT  ♦  t 7H  JO, 

RFPORT 

6? 

67M8  ,7M  PERM « 7HANENT  ,7M  OVEtTHR  ,7H  ELEMEN, 1MT t 

REPORT 

63 

77MLABOO  t 

REPORT 

6A 

7  7H  EOUt  7H IPMENT  1 7M  MAT ,7HFR I ALS  ,7H  MAT, 

REPORT 

65 

B7HPR  I ALS  ,7M  hE,7MAO  ,7H  TOTAL. 14»7M - ,3H—  t 

RFPORT 

66 

9 1 4*  7H - ,3M - 1 

report 

67 

A7HGEOLOGY , 7H  CHANGE. AMO  A T ,5H  DAYS.7H  FEET  F.7MR0M  PORtAHTAL.t 

report 

68 

A7MNEW  CHA, 

REPORT 

69 

B7HRACTERI.7HSTICS  AtTHRE.  UN, 7HC0NFINE 1 7H0  COMPR  . 7HESS I VE  , 

REPORT 

70 

C7MSTRENGT , 6Hh (KSI ) / 

REPORT 

71 

c 

REPORT 

7? 

1 


GOLETA  FORTRAN  1.3  •  AUTO  RFL  •  (07-12-721 


REPORR 


000002 

000003 

000005 

000007 

000010 

000011 


000011 

000016 

000020 

000021 

000022 

000025 

000026 


000030 


000033 

000036 

000036 

000072 

000072 

000136 

000136 
000150 
000150 
000153 
000154 
000164 
000164 
000167 
0001 70 
000200 
000200 
000203 
000204 
000214 
000214 
000217 
000220 
000230 
000230 
000242 
000242 


C 

C 


INITIALIZATION 
INI T- 1 

IF  (REPORT  .EO.  0.1  REPORW4. 

IF  <  T5HFT  .EQ.  0.)  T5MFT»24. 

IF (NEEOIN  .EQ.  0)  00  TO  999 
NEE0IN=0 
GO  TO  1 

NORMAL  ENTRY 

ENTRY  REPORS 
IF ( INI T  .EO.  11  00  TO  3 
NFFOIN  =1 

GC0MP(ITING  OAY  OF  REPORT  AND  AVERAGE  AOVANCE 
OATS3 (T-T01/24. 

TSHFT  =  t-to 
AOV3 Y-XO I SCH 

OPERATING  time  IS  ASSUMEO  to  be  rock  disintegration  up  time 

AVGAOV*(X-X01/RDUT1M 

PRINTING  INTERIM  PERFORMANCE  REPORTS 
PRINT  4 

*  points!  (IHFAn<I).I31.10).OAYS.(IHEAO<ll.t*12«17).ADV.(lHEADtl). 

s* FORMAT  (////•46X»4A7»////»26X.6A7.Fl0.3*//»26X»6A7«F10.3t//‘?6X« 

1  PRINT*  40^  (IHrAO(!).l  =  24.73>.GOAY.(lHEAOU).I»34.40).GfIEG.UMEAO(ll 
1.1=41. 471. GENT).  UHEAO(Il.I«4fl. 54). GAOV 
40  FORMAT  (/.26Y.3a7.//»34Y.6a7.A4.F10.3»//* 34X.6A7.A4.FI 0.3*//. 34X. 
16A7.A4.F10.3.//.34Y.6A7.A4.F10.3) 

PRINT  BO. (IHFAOU). 1*55.84) 

BO  FORMAT (/.26X ,4 A7,A6.//.26X.9A7»//»51X.5A7*A2»//»26X«9A7. A21 
OPTIS=(TSHFT-ROr)TIMl/TSHFT 
USETImsROUTIm/TSHFT 
PRINT  1 20 . OPT  I M .USET IM 

120  FORMAT  (//• 25x • 1  OH  ROCK  FRAGMENTATION  *F1 3.3* l 0X.F1 3.3) 

OPT  I M  =  (T  SHFT-OmhT IM1 /TSHET 

USETIMsUMh7Iw/TShFT 
PRINT  130.OPTIM.USETIM 
130  FORMAT ( /• 25Y  .  1 9H  MATERIALS  HANDLING 
OPT  I M= ( TSHFT-GSOT IM1 /TSHFT 
USETIMsGSUTIM/TSMFT 
PRINT  140* OP TIM. USE TIM 
140  FORMAT!/  .2SX.19H  GROUND  SUPPORT 
OPT  IMs(TSHFT-ECOT.IM) /TSHFT 

usetim=ecutim/tshft 

PRINT  150.0PTIM.USET1M 
150  FORMAT (/.25X.22H  ENVIRONMENTAL  CONTROL 
PRINT  160.(1  HE  AO (11.1*85 .107) 

160  FORMAT!// . 25X.10A7.A1 .///.24X . 1 1 A7. A2) 

099  CONTINUE 


.F13.3.10X.F13.3) 


.F13.3.10X.F13.31 


•F10.3.10X.F13.3) 


07/25/72 

REPORT 

73 

REPORT 

74 

REPORT 

75 

REPORT 

76 

REPORT 

77 

REPORT 

78 

REPORT 

79 

REPORT 

80 

REPORT 

81 

REPORT 

82 

REPORT 

83 

REPORT 

84 

REPORT 

85 

RFPORT 

B6 

REPORT 

87 

REPORT 

88 

REPORT 

89 

REPORT 

90 

REPORT 

91 

rtport 

92 

REPORT 

93 

REPORT 

94 

RFPORT 

95 

REPORT 

96 

REPORT 

97 

REPORT 

98 

REPORT 

99 

REPORT 

100 

REPORT 

101 

REPORT 

102 

REPORT 

103 

RFPORT 

104 

REPORT 

105 

RFPORT 

106 

REPORT 

107 

REPORT 

108 

REPORT 

J09 

REPORT 

no 

REPORT 

in 

REPORT 

112 

REPORT 

113 

REPORT 

114 

REPORT 

115 

REPORT 

116 

REPORT 

117 

REPORT 

118 

report 

119 

REPORT 

120 

REPORT 

121 

REPORT 

122 

REPORT 

123 

REPORT 

124 

REPORT 

125 

REPORT 

126 

REPORT 

127 

11! 
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REPORR 


07/25/72 


000242  RETURN 

000243  END 

•following  variables  eouivalenced  but  not  referenced 

IHOVE 

JWETH 

XT 

XOE 

PC 

JMOVE 

IMETH 

XE 

PR 


REPORT  128 
REPORT  129 
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GOLETA  FORTRAN  1.3  •  AUTO  RFL  •  (07-12-72) 


07/2S/72 


C 

C 

C 

000002 


0000C2 

000002 


000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

c 

000002 

000002 

000C03 

000005 

000007 

cooon 

000012 

000014 

COOOI5 

000016 

000017 

00C020 

000020 

c 

000021 

000026 

000030 

000031 

000032 

000034 

000035 

000040 

000041 

000042 

c 

c 

00C044 

000045 

000046 

000047 

000050 

000051 

000053 


SUBROUTINE  REPORC 
PRINTING  interin  COST  REPORT 

rrtMMON  /ALL  /  XT . 5TR *  1 A .RQO.CS » T AMB.FLOV# IFL AG 

j,  AT.O.E.SK.T.OT.X.PR.XMAX.TMAX.OX.OV.TPRINT.OTPRNT.IMOVE.JMETM 

2.  TSHFT. RFPORT. OPPCT, TO. XO.XOISCH, ICHNG.XCHNG.TCHNG 
fOUIVALENCE  ( JMOVF. 1MOVE) « ( 1METH. JMEfH) 

COMMON/HON FT/  jmmhm.ojm.djmmh.ojmrp.ojmbmm.omaint *ojhbm»djngs 

1 ,  PMGS. JMCV.OJMfCtROPLAN.HPLANT .GSPLAN 
?,  FCpLAN.R0TIME.HT1ME(2> .GST1ME.E0TIME 
COMMON/PERFRm/  rout 1H. ROOT 1M, UMHT in *omhtin»gsuttn*gsdtin.ecutin 
It  ECOT 1M  t  GOAT  tGAOV  tGENOt  GREG 

COMMON/LABOR/  ROHEN ( 1 0 1 2) t MHEN( 1 0 12 1. 1 f GSNENI 1 0*2) .ECMENI10.2) 

REAL  JMMHM .L0.L0B.L81 T .LBURN.LSTEEL.JMCV 
OINENSION  GIB) 

EQUIVALENCE  (GtXTI *  (XE.XDE) «  IPR«PC) 

OI“ENSION  IVAL (20) 

COMMON /TEST /VALUE  (301  t  NAME  (  30 ) 

ItlHEAOdlOl  tJHEAO(IOO) 

EQUIVALENCE  ( I VAL  t VALUE ) 

INITIALISATION 

OIMCNSION  ELEMEN(4.6).T0TAL(6) 

1  INI T  —  I 

1F(0PPCT  .EO.  O.J  OPPCT«.20 
1F(REP0R1  ,EO.  0.)  REPORTS. 

00  2  1=1 t2 

HTIMflllxO 

2  CONTINUE 
GSTIMF=0. 

ROT IMF=0. 

ECTIMF=0. 

IF (NEE01N  .EO.  0)  GO  TO  999 
NFED1N=0 
GO  TO  3 
NORMAL  ENTRY 
entry  reporo 
IF  (1NIT  .EO.  1)  GO  TO  3 
NFE01N=I 
GO  TO  1 

3  10  5  1=1.4 
00  4  J*1.6 
ELEMEN(ItJ)«0. 

TOTAL! Jl=0. 

4  CONTINUE 

5  CONTINUE 

COMPUTE  JOB  material  .plant  ano  eouiphent  costs  for  each  process 

ELFMEN(1.4)«0. 

ELEMEN (2.4 ) *0 • 

ELEMEN(4.4)=0. 

EL  EMFN (3.31*0. 

ELEMEN ( 1 . 2) =00PLAN 
ELEMEN (2 1 2) *hPL  ANT 
ELEMEN (3.2 1 *GSPLAN 


RFPORT 

REPORT 

REPORT 

report 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

AIL 

ALL 

TEST 

TEST 

TEST 

TEST 

report 

report 

REPORT 

REPORT 

RFPORT 

RFPORT 

REPORT 

REPORT 

REPORT 

REPORT 

REPORT 

report 

REPORT 

report 

REPORT 

RFPORT 

RFPORT 

report 

RFPORT 

REPORT 

REPORT 

REPORT 

REPORT 

REPORI 

REPORT 

report 

report 

REPORT 

RFPORT 

REPORT 

REPORT 

REPORT 

REPORT 

REPORT 


130 

131 

132 

133 
2 

3 

4 

s 

6 

7 

B 

9 

10 

11 

12 

13 

14 
2 

3 

4 

5 

136 

137 

138 

139 

140 
1*1 

142 

143 
1*4 
1  *S 
1*6 
1*7 
1*8 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 
169 
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OOLETA  FORTRAN  1.3  •  AUTO  RFL  •  (07-12*72)  REPORC  07/25/72 


000054 

ELEMEN(4.2)=FCPLAN 

REPORT 

170 

000056 

ELEHEN ( 1 .  3)  =f)  JMRO»OJMRM 

REPORT 

171 

000060 

ELEHEN ( 2  «  3 ) =D JMHH 

REPORT 

172 

000061 

£LEM£N(3.4)=0MGS 

REPORT 

173 

000063 

ELEHEN (4 . 1 ) =D JHEC 

REPORT 

174 

C 

REPORT 

175 

C 

COMPUTING  LABOR  COSTS  FOR  EACH  GENERAL  PROCESS 

report 

176 

C 

REPORT 

177 

000064 

00  6  1=1.10 

REPORT 

1 78 

C  90066 

ELEMFN ( 1 • l 1 =f LFMEN ( 1 *1 > »ROMEN ( 1 . I ) »ROMEN( I .21 PROT IME 

REPORT 

179 

000072 

ELEHEN ( 3. 1 > ’ELEHEN (3.1 1 ‘GSMEN ( 1 . 1 > »G$MEN ( 1 .2) »GST THE 

REPORT 

180 

000076 

ELEHEN (4 , 1 ) = ELEHEN (4.1 ) «ECHEN (1 . 1 1 ‘ECHENI 1 »2)#ECTIHE 

REPORT 

181 

000102 

6  CONTINUE 

REPORT 

182 

000104 

00  70  J  =  !  .2 

REPORT 

183 

000105 

00  7  1=1,10 

report 

184 

000106 

ELEHEN (2.1 ) *ELEMEN (2. 1 > «HM£N ( I , I . J)«HMEN ! I .2. J) »MTI HE ! J> 

report 

IBS 

000117 

7  CONTINUE 

REPORT 

186 

000121 

70  CONTINUE 

REPORT 

187 

000123 

00  0  1=1.4 

REPORT 

188 

000124 

00  B  J  =  1  ,4 

REPORT 

189 

000125 

ELl'MEN(I.5)=ELEMEN(I.5)‘0PPCT»ELEHEN(I.J) 

REPORT 

190 

000133 

8  CONTINUE 

REPORT 

191 

000135 

9  CONTINUE 

REPORT 

192 

000137 

00  11  1—1.4 

report 

193 

000140 

00  10  J=1 .5 

report 

194 

000141 

ELEHEN ( 1 .6) ‘ELEHEN ( I ,6) ‘ELEHEN  ( I  .  J> 

REPORT 

195 

000146 

10  CONTINUE 

report 

196 

000150 

11  CONTINUE 

REPORT 

197 

00015? 

00  13  1=1.4 

REPOU 

198 

000153 

00  12  J=1 .6 

REPORT 

199 

000154 

TOTAL (J)=TOTAL(J) ‘ELEHEN ( I, J> 

RTPORT 

200 

0C0162 

12  CONTINUE 

REPORT 

201 

000163 

13  CONTINUE 

RFPORT 

202 

000165 

OAYS=(T-TO)/?4. 

RFPORT 

203 

090170 

ACYARO. TOTAL (6>‘10B./(3.1415»(0»«2)»(X-X0) » 

REPORT 

204 

000176 

ACFOOT  =  TOTAL(6)/U-XO) 

REPORT 

205 

000200 

PR’NT  14 

REPORT 

206 

000204 

14  FORMAT ( 1H1 ) 

REPORT 

207 

000204 

PRINT  15.  (JMEAO(I). 1=1. lOl.OAYS.IJHEAOlIl. 1=11. 171.ACYAR0. 

RFPORT 

208 

I (JMEAO(I) .T=1B,24),ACFOOT 

RFPORT 

209 

000240 

15  FORMAT (///.49X,3A7.///BT,6A7.A3»F14,3.//»BX .6A7.A3.FI 3. 2.//.BA. 

RTPORT 

210 

26A7.A3.F13.2l 

REPORT 

211 

000240 

PRINT  50.(JheAO(!).1=25.69) 

REPORT 

212 

000252 

50  FORMAT (//. 8* .647.//. 8X.1 3A7.A1 ,/ , 29X. 1 OA  . // .8X , 1 4 A7 , A3) 

RFPORT 

213 

000252 

PRINT  90.(ELrv,EN(l«J)»J=1.6) 

report 

214 

000264 

90  FORMAT)/  .7*.  2?H  ROCK  FRAGMENTATION  .F9.2.F1 1 .2,3X .Fl I .2.3X.F 

RTPORT 

215 

1 11.2.F10.2.F)?.?) 

REPORT 

216 

000264 

PRINT  100. (ELEHEN(2.J) . J=1 .6) 

Report 

217 

000276 

1 00  FORMAT (  /.7X.22H  MATERIALS  HANDLING  .F9.2.F 1 1 .2. 3X. Fl 1 .2, 

report 

e!5 

1  3X.F11.2.F10.2.F12.2) 

REPORT 

000276 

PRINT  1 10, (FLEMEN(3.J).J=1.6) 

RFPORT 

220 

000310 

110  FORHATt/  7X.22H  GROUND  SUPPORT  »F9.2. Fl 1 3X .Fl 1 . 2 . 3X • 

RFPORT 

221 

1  F11.2.F10.2.F12.2) 

REPORT 

222 

000310 

PRINT  120. (ELEMENI4.J) ,J=1 .6) 

RFPORT 

223 

000322 

120  FORMAT!/  ,7x,22H  ENVIRONMENTAL  CONTROL  .F9.2.F1 I .2.3X.F1 1 ,2»3X 

report 

224 
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GOLETA  FORTRAN  1.3  •  AUTO  RFL  •  (07-12-721 


1.F11.2.F10.2.F12.2) 

PRINT  1 30* ( JHEAO II)«I»70*84) 


REPORC 


000322 

000334 

i 

130 

000334 

000346 

140 

1 

000346 

000347 

000350 

000403 

1 

150 

000403 

000411 

165 

000411 

000417 

170 

000417 

000425 

180 

000425 

000433 

190 

000433 

000441 

200 

000441 

999 

000441 

000442 

r  i  w  ■  -  —  ■ 

PPINT  140*  (T0TAL(J).J>1*6)  ,  ,  , 

FORMATf//  7K.22H  CATEGORY  TOTAL  #r«.2. F11.2tl 

F10.2.F12.2) 

1FI1CHNG  .EO.  01  GO  TO  999 
PPINT_ 150* ( JhE»0 (I)»I*8S«87) «TCHNG • ( JHEAO ( I ) *  I "88 *88) • XCHNG* 


PRINT  165*1  A 
FORMAT (SI  X  »37H 
PRINT  170. ROD 
FORMAT (51 X  *  37H 
PPINT  lflO.CS 
FORMAT (51  *  *  37H 
PRINT  190.TAMB 
FORMAT (51 X . 37M 
PRINT  200. FLOW 


RETURN 

ENO 


07/2S/72 

report 

2?5 

REPORT 

226 

REPORT 

?2* 

REPORT 

228 

2.F14.2* 

PCPORT 

229 

RFPORT 

230 

REPORT 

231 

REPORT 

232 

(NG* 

REPORT 

233 

REPORT 

234 

i.Fl  2*4) 

REPORT 

235 

REPORT 

236 

.17) 

REPORT 

237 

REPORT 

238 

•F12.4) 

REPORT 

239 

REPORT 

240 

.712*4) 

REPORT 

241 

REPORT 

242 

»F1 2*4) 

report 

243 

REPORT 

244 

•F12.4) 

REPORT 

245 

REPORT 

246 

REPORT 

247 

REPORT 

248 

•FOLLOWING 

IMOVE 

JMETH 


XT 

XOE 

PC 

JMOVE 

IMETH 

XE 

PR 
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SUBROUTINE  HOLBRN  (ICYCLE) 


000003 


000003 

000003 


000003 

000003 


000003 

000003 

000005 

000005 

000006 

000007 

000017 
0000?0 
000025 
000030 
0000  34 
000037 
000040 
000043 
000046 
00005? 
000063 

000066 

000073 

000076 

000103 

000105 

000107 

0001?0 


000120 

0001?? 

000I?3 

0001?4 

0001?4 

000130 

00013? 

00013? 

000143 

000154 

000154 

00016? 

000163 


SUBROUTINE  HOLRRN  ( ICYCLE  ) 

COMMON/ALL/  XT.STR. I  A. ROD. CS. T AMR .FLOW. I  EL  AG. AT .0 .E .SK .7 .07 . X .PR 
I.  XMAX.TMAX.TO.XO.XOISCH 

?.nx. ov 

common/money/  ojmro 

COMMON/BLAST/  AOfl.AOH.  CB II .CRURN.CCAP. CEX .CM. CPL .CSTEFL .LRI T 

1.  LRURN. LO «LOR .LSTEEL .MEN. NO. NH. NHB .PE.POB. POD. TCHG. TIN. TOUT 

2. TYPEPE.WPL 

CDMHON/OLOCOM/  JUMIN. JUMOUT.NCHPG.NDRILB.NDRILL 
COMMON/NEWCOM/LJUMIN.LJUMDT.LNCHBG.LNnBLR.LNOBIL 
C 

C  ELEMENT  -  POCK  01 S INTEGRA! ION 
C  GENERAL  PROCESS  -  DRILL  ANO  BLAST 
C  ACTIVITY  -  DRILL  HOLES  OF  BURN  PATFRN 

C  TECHNIOUE  -  PURCU5S ION  ORIFTSR  ANO  BURN  CUT  DRILLS 

C 

DATA  TIMED. TIMER. PHI. SE.RO. TO. ROB. TOR  /8*0./ 

if c i cycle  .ne.  i  i  go  to  so 

NORILL-0 

NORILR=0 

ICYCLE  =  50 

IE  (NH  .NF.  0  .AND.  NO  .NF.  0  .ANO.  LO  .NE.  0)  GO  TO  10 

C  OPTION  ? 

PHI  =  1.0 

NH  =  INT  ((  0  *0.1 *0*0) *PHI  ♦  .5) 

NO  =  INT  (NH/8.0  ♦  .5) 

IE  (0.GT.15.)  NHB  =3 
IE  (0.LE.15.I  NHB  =2 
NOR=I 

LO  =  OX  »  I.o 
LOR=Ox»l .0 

10  IEISTP  .GT.  50.0)  SE=60. 

IE  I STR  .LT.  50.01  SE=15.*EXP(0.031*STR) 

RO=l .RRE3*POn/(AOH*SE) 

C  TIME  TO  DRILL  HOLES 
TO  =  LO/RO  •  NH/NO 
ROR=l .BflE3*POH/(A08*5E) 

TOR=LOR/ROB  •  NHH/NOR 

TIMEO=TO 

TIMEB=TOB 

PRINT  ?0 . TO. TOR.NH 

1  FORMAT  (•  TIME  TO  ORILL  HOLES  -  TD=*.E10.5»*  TOB=*.EI0.5/ 

*  •  NO.  OF  HOLES  =*.1101 

C  KFrp  TRACK  OE  TIME  ANO  CDSTS 
50  TIMEO=TIMEO-OT 
T IMER=T IMER-OT 
LNOR IL=0 
LN0RLR=0 

IE  (TIMEO.GT.  0.01  GO  TO  60 
IE (NOR ILL  .EO.  I)  GO  TO  57 
LNORIL  *  I 

IE  (LRIT  .LE.0,0  .OR.  LSTEEL  ,LE.  0.01  GO  TO  55 

OJMRO=  CRIT/LBIT  •  NH*  LO  *  CSTFEL  •  LO  •  NH/LSTEEL  »DJMBO 

GO  TO  60 

55  OJMRO=  .I*NH*L0  »  0.25  *  . I*NH*LD  *  DJMRO 
GO  TO  60 
57  LNORILM 


000164 

60 

IE  (TIMES  .GT.  0.0)  RETURN 

000166 

I E (NOP ILR  .EO.  I)  GO  TO  67 

000170 

LNORLRM 

000171 

IE  (LRURN  .LE.  0.0  .DR.  LSTEEL  ,LE.  0.0)  GO  TO  65 

000?01 

OJ«RO=CRURN/LBURN*NHR*LDB»CSTEEL*LOB*NHB/LSTEEL*OJMRO 

00021? 

GO  TO  70 

000212 

65 

0JMR0=.25*. l*NHR*LDB»OJMRD 

000217 

GO  TO  70 

000217 

67 

LNDRLRM 

000??0 

70 

RETURN 

000221 

END 
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SUBROUTINE  MOVEIN  (ICYCLE) 


C 

c 

c 

c 

c 

c 

c 

000003 

000003 


000003 

000003 


000003 
000003 
000003 
000003 
000006 
000006 
000007 
000012 
000013 
000015 
<•  000020 
000021 
000025 
000026 
000026 
000030 
000032 
000034 
000035 
000037 
000040 


SUBROUTINE  MOVFIN(ICYCLE) 


ELEMENT  -  ROCK  FRAGMENTATION 
GFNERAL  PROCFSS  -  DRILL  AND  BLAST 

ACTIVITY  -  REPOSITION  AND  ALIGN  DRILLING  EQUIPMENT 
TECHNIQUE  -  DRILL  JUMRO  (FULL  FACE) 


COMMON  /GRND/  PSST  (60»9)  _  __ 

COMMON/ ALL/  XT « STR * 1 A « RQD* CS « T AMR ♦FLOW* IFL AG ♦ AT  »D»E » S« * T ,DT *  X  *  PR 

It  XMAX*TMAX,TO»XO»XDISCH 


2«DX,DV 

COMMON/MONEY/  DJMRD 

COMMON/RLAST/  aDR«ADH*  CPIT *CRURN»CCAP» CFX »CM«CPL ♦ CSTFFL »LR IT 

1,  LRURN f LD ♦ LDR ♦ LSTEEL *  MEN * ND » NH « NHB*PF»POB» POD »TCHG»TTN» TOUT 

2  ♦  TYPEPF  »WPL 

COMMON/OLDCOM/  JUMIN* JUMOUT ♦NCHPG»NDRILB»NDRILL 
common/nfwcom/ljumin»l jumot*lnchrg»lndrlb»lndril 
DATA  TT/O./ 

IF  (ICYCLE  .GT.  1 ) GO  TO  10 
JUM IN=0 
ICYCLE  =  50 

IF  (TIN  .LE.  0.0)  TIN=,25 

TTrTIN 

DO  5  1=1 » 15 

IF (PSST (1*1)  .LE.  ROD)  GO  TO  6 

5  CONTINUE 

6  IF (PSST ( I «3)  .GT.  10.)  GO  TO  7 
DX=PSST(I»3) 

GO  TO  R 

7  DX=10. 

ft  DV=AT*DX 
10  TT=TT-DT 
ljumin=o 

IF (TT  .LE.  0.0)  LJUMIN=1 

RETURN 

END 
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Z.  SUBROUTINE  MOVOUT  (ICYCLE) 


000003 


000003 

000003 


000003 

000003 

000003 

000003 

000006 

000006 

000007 

000012 

000013 

000015 

000015 

000020 

000021 


SUBROUTINE  MOVOUT  (ICYCLE) 

C 

C  FLEMENT  -  ROCK  FRAGMENTATION 

C  GENERAL  PROCESS  -  ORILL  AND  BLAST 
C  ACTIVITY  -  MOVE  OUT  DRILLING  EQUIPMENT  AND  BLAST 
C  TECHNIQUE  -  DRILL  JUMBO  (EULL  E ACE ) 

C 

COMMON/ALL/  XT*STR* lA«RQDtCS»TAMB«ELOW» I EL AG ♦ AT tD. E * SK * T ♦ DT » X .PR 
1*  XMAX»TMAX.TO»XO«XDISCH 
?tDX»DV 

COMMON/MONEY/  DJMRD 

COMMON/BLAST/  ADB«ADH»  CBI T * CBURN* CCAP ♦ CEX . CM.CPL * CSTFEL »LBIT 

1,  LBURNf LO» LDP ♦ L STEEL  »MEN»ND»  NH»NHB»PE ♦ POB ♦ POD*  TCHG*  T IN  »  TOUT 

?»typepf*wpl 

COMMON/OLOCOM/  JUMIN*  JUMOIJT  *NCHRG*NDRILB*NDRILL 
COMMON/NEWCOM/LJUMIN»LJUMOT*LNCHRG*LNDRLR»LNDRIL 
DATA  TT/0./ 

IE  (ICYCLE  .GT.  1)  GO  TO  10 
ICYCLE  =  50 
JUMOUT  =  0 

IF  (TOUT  .LE.  0.0)  TOUT*. 25 

c  set  initial  conditions 

TT  =T  OUT 
10  TT=TT-DT 

ljumot=o 

IE ( TT  .LE.  0.0)  L JUMOT  =  1 

RETURN 

END 
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SUBROUTINE  SETCHG  (ICYCLE) 


000003 


0000C3 

000003 


000003 

000003 


000003 

000003 

000005 

000005 

000006 

000007 

000011 

000012 

000014 

000015 

000017 

000020 

000022 

000023 

000024 

000025 

000026 

000030 

000031 

000033 

000041 

000044 
000047 
000052 
000055 
000056 
000061 
000063 
000073 
000075 
000075 
000100 
000101 
0001  13 
0001  13 
0001  13 


SUBROUTINE  SFTCHG (  ICYCLE ) 

COMMON/ ALL/  XT*STR* I  A* RQD* CS « T AMR  *  FLOW* I FLAG* AT  * D*E * SK * T * DT « X • PR 
1*  XMAX*TMAX,TO*XO*XOISCH 

2*nx*ov 

COMMON/MONFY/  DJMRD 

COMMON/BLAST/  AOB ♦ ADH  *  CR I T ♦ CRURN* CCAP ♦ CEX ♦ CM  * CPL ♦ CSTEEL *LR I T 

1 ♦  L BURN *LO*LDB*LS TFEL ♦ MEN* ND*NH*MHB *PF*POR* POD* TCHG*  TIN* TOUT 
2  *  T YPFPF  *  WPL 

COMMON/OLDCOM/  JUMIN* jumout*nchrg*ndrilb»ndrill 
COMMON/NEWCOM/L JUM IN*  L JUMOT  *LNCHRG  *LNORLR ♦ LNDR IL 
C 

C  ELEMENT  -  ROCK  DISINTEGRATION 

C  GFNERAL  PROCFSS  -  DRILL  AND  BLAST 
C  ACTIVITY  -  SET  CHARGE 

C  TECHNIQUE  =  INDIVIDUAL  HAND  METHOD  OR  AUTOMATED 
C 

DATA  CF*WEX*DTS*TT  /4*0./ 

IE  (ICYCLE  .NE.  1)  GO  fO  30 

ICYCLE  =  50 

NCHRG=0 

IE  (PF  .NE.  0.0)  GO  TO  20 
10  IE ( TYPEPE  .Nf.  3.)  GO  TO  15 
CE  =  50. 

WPL=0.5 
CCAP=o.3 
CPL=0.2 
CEX  =  0.06 
CM  =  1  . 

GO  TO  18 
15  CF  =  70. 

WPL=0. 

CPL=0. 

CCAP  =  0.3 
CEX  =  0.3 
CM=1  . 

C  COMPUTE  POWDER  REQUIRED 

18  PE= (27./144)* ( ADH*CE/AT)*NH 

20  WEX  =  PE/27.0  *  AT  *  DX 

C  COMPUTE  TIME  TO  SET  CHARGES 

IE  ( TCHG.LE •  0.0)  TCHG  =  4./60. 

IEfMEN  .GT.  0)  GO  TO  21 
TMFN=NH/fl.*.S 
^EN=INT (TMEN) 

21  DTS=TCHG*NH/MEN 
TT=DTS 

PRINT  25*PF *DTS 
30  TT=TT-DT 

lnchrg=o 

IE ( TT  .GT.  0.0)  RETURN 
LNCHRG  =  1 

djmrd=djmrd*nh* (WPL*CPL) ♦nh*ccap*wex*cex+ox*cm 

25  FORMAT  (*  POWDER  E ACT0R=*»E1 0.5*5X **TIME  TO  SET  CHARGES=*,E1 0.5) 
RETURN 
END 
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I 

I 

I 

I 
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BB.  SUBROUTINE  JETIMP 


FMFATJ.FOMATP.Fnx 
HEATJ.OwATR.nx.rv 


SUBROUTINE  JFTJMF 

rLrMF\T  -  BOf*  niSlUFfiRATION 

GFnF.BAL  »03CfSS  -  WATER  JFT  IMPACT.  CONTINUOUS  or  intfrmtttant  pulses 
ACTIVITY  -  JFT  IMPACT 

COMMON /ALL/  «T  .STJ  .  I  A  .POO.  CS«  TAMP.  FLOW.  IFL*G»AT.O>f,SK.T.DT.».PR 
1,  xMix.TMAX.Tn.>n.<oiscH 
COMMON/MONPY/  OJMPI) 

COMMON/NJFT  /  PL  T  .CPOPL  .CSTPBJ.OJMMJM.ONO77.0Tf  JFT  .OtMJFT.OTJ  IET 
1.  FNFPGJ.FTAf.N.fTA  J  .FT  A  |  «P.  F.  TA  I»T  .FOOF  J.NOUNS.N  It  TS  .  Pr,'07  ?  .  P°“ 

7.  PR JPM, Pi II. SFO.TPnPL  .  VOlPR  J.VFLPPJtVPSJ.APJFT  .VFLJET 
COMMOn/NF.tOm/  lnpapl.lmwj.lmwjm.lmmjo. 

1.  FOV 

COMWC’J/OLnfO’V  NPARL  .MMJ.MWJM.MWJR, 

FOJI VALENCE (SI  Of .STB) 

EOUIVALENCF  (.iPncs.POOI 
EQUIVALENCE  (MPI.M^J) 

FOUiVALFNCF  < L v' P I  . LMM Jl 
OATA  PI  /3.1415B?7/ 

DATA  pin  n/ 

DATA  nEEDIN  /O/ 

OATA  FACTA, F:,CTR.FACrr.*FACT,OFACT  /S*0./ 

IMT1ALI7E  VABIAHLES 
10  IF  (PP  .FO.  0 • )  pp  =  O.OIS 
IF  (F TAJ  .FO.  0.)  ETAJ  =  0.3 
IF  (ETAIMP  .FO.  0.)  FTA!"P  =  O.P 
IF  (ENfBGJ  .  i.f.  0.)  00  TO  100 
IF  (MOnt'J  . FO.  It  GO  TO  70 

ENFPGJ  NOT  INPUT.  MpDEJ  =  CONTINUOUS 
IF  (SIGC  .IT.  S.O  .OP.  SIOC  .GT.  >5.0)  GO  TO  SO 
FNERGJ  =  47.0  4  EXP  (.00  •  SI GC> 

1 fnfrgj  NOT  INPUT.  MODE J  ■  INTERMITTENT 
TO  IF  (SIGC  .LT.  15.0  .OR.  SIGC  .GT.  35.0)  GO  TO  80 
FNFRf.J  s  100.  •  FXP  (.07?  •  SIGC) 

50  TO  100 
SO  PRINT  85 

ss  FORMAT  inSHAJfT  ENERGY  PFR  VOLUmF  of  Mors  H»0<F>|  must  PF  SPFCI-FIE 
•0  FOP  TMF  ®3i*<  STRENGTH  ENCOUNTERED.  RON  TERM  I  SATED.  ) 


CALL  F X  I T 


GENERATE  FACTORS  OEOlURFO  FOR  CALCS 
4. 

OS077  /  A. 

/  60. 

/  1.3 


100  XFACT  3  PI  •  0  •  0  / 

yfact  3  pi  •  rm/7  * 

7FACT  =  p  ILSFO  •  PPM 
*VB5  3  PNU77  *  1 R 3 . ? 

VFLJFT  =  SORT  («rtPK) 

0F1CT  s  VFljfT  »  NJFTS  «  YFACT  •  75. 
on^RFfi  3  0.0174  •  0N07 /  *  DNOZZ  •  PN07Z  ••  1.5 
IF  (MOOEJ  .ED.  0)  GO  TO  I  10 
2F  ACT  3  OF  AC  T  •  /FACT 
POmRFa  3  POn^EA  *  7FACT 
110  CONTINUE 

TOTf  p  *  NJFTS  •  P0w°F A 
PWPIN  *  TOTPmR  /  ETAJ 
FACTA  x  PM»IN  ♦  PR  •  0.7457 

FACTS  3  (I,  -  ETAJ  »  ETAIMP)  •  PMBIN  •  7545,7 
FACTC  ■  13.75  •  TOTPWP  /  (XFaCT  •  FNEBGJ) 

IS  CALL  FOR  INITIALIZATION  ONLY 

INIT  =  1 

IF  (NFFDIN  .FO.  0)  GO  TO  BBS 
NFEOIN  =  0 
GO  TO  300 


Reproduced  ‘f0^ 

be  si  COHT— 
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A 


oo  o 


NORMAL  ENTRY 


ENTRY  JET 

if  unit  .eo.  n  go  to  300 

NFFOIM  =  1 
GO  TO  10 
300  FHEATJ  =  0. 

ROT IMpsRDT IMF*OT 
FOX  *  0. 

FDV  =  0. 

FORATR  =  0. 

IF(MWJ  .GE.  11  GO  TO  <599 
rjjuRO  *  OJMRO  «  (FACTA  •  OT1 
rorlan*rdplam*s. 

FMFATJ  =  FACTR  •  OT 
FO*  =  FACTO  *  OT 
FOV  =  XFACT  •  FOX 
FOWATR  =  OFACT  *  OT 
999  RETURN 
ENO 


cc 


SUBROUTINE  JETAGN 


c 

c 

c 

c 

c 


c 


c 


c 

c 


c 

c 

c 

c 

c 

c 


SURPOUTINf  JFTAGN 

ELEMFNT  -  ROCK  DISINTEGRATION 
GFNERAL  PROCESS  -  WATER  jft 
ACTIVITY  -  REPOSITION  .  ALIGN 

OP  PROJECTILE  FRAGMENTATION 

COMMON/ ALL/  XT.ST®. I A.ROD.CS.TAMR.FLOW* IFLAG. AT .O.F.SK.T.OT. A .PR 
I,  XMAX.TMAX.TO.XO.XOISCH 
COMMON/MONFY/  OJMOO 

COMMON/NJF.T  /  DL  T  • CPRRL .CST°R J.OJMW JM.DNOZ7 .OTC JFT  «DTM  JET  .OTR.tf  T 

1.  ENfPGJ.FTAGN.ETAj.FTAIMP.FTAIPT.MOOf JtNGUNS.NJFTS.PN077.PPM 

2,  PP JPM, PULSED. TP PPL .VOLPPJ.VFLPPJ.MPPJ.XPJET.VFL JET 

COMMON /NEJCOM/  LNPAPL.LMWJ.LMWJM.LMWJP.  FMFATJ.FOWATP.FnX 

I.  '  FOV 

COMMON/OLOCOm/  NSAPL.MWJ.Mtf JM.MWJO.  MEATJ.OWATR.OX.nV 

EQUIVALENCE  (Sir-c.STP) 

EQUIVALENCE  <w®QC* .ROD) 

EOUIVALENCE  (MPI.MWJ) 

FOtll VaLENCE  <L“PI.LNWJ> 

OATA  OISTJ  /O./ 

DATA  FLPSO  /O./ 

DATA  OLDPOS  /O./ 

DATA  INIT  /O/ 

OATA  NEEOIN  /O/ 

ENTRY  PPJAGN 

INITIALIZE 

10  MWjPal 

IF  (QTRJET  .FQ.  0.)  OTP JET  *  0,25 

OLOPOS*X 

INIT  ■  I 

IF  (UFEOIN  .FQ.  0)  GO  TO  999 
NFF01IN  *  0 
GO  TO  50 

NORMAL  ENTRIES 

ENTRY  JETPOS 
ENTRY  PPJPOS 

ie  unit  .fo.  n  go  to  so 

NEEOIN  »  I 
GO  TO  10 

50  IE  (MWJ  .EO.  0)  GO  TO  100 

WATER  JET  (OR  PROJECTILE  GUN)  STOPPED 
IE  (MW JP  . EO.  I)  GO  TO  PRO 

REPOSITIONING  NOT  YET  COMPLETED 

EL°SO  =  FL°SO  .  OT 

IE  (ELPSD  .LT,  OTR JET )  GO  TO  999 

L“W JR  =  I 

LMWJ  •  LMWJ  -  I 

OLDPOS  =  x 

EL°SO  =  0. 

GO  TO  999 

WATER  JET  (OR  PROJECTILE  GUN)  IS  OPERATING 
100  OISTJ  *  x  -  DLnPOS  .  EQX 

NOTE  FDR  A  GTVFN  CYCLE.  EOX  MUST  RE  CALCULATED  REEO»F  THIS 

STATFMEmT  IS  EXECUTED.  SINCE.  TO  RE  CONSISTFNT  WITM  OTuFR 
LOGIC.  OISTJ  MUST  REFLECT  TMC  OISTANCE  AT  THE  ENO'  OE  The 
CURRENT  CYCLE.  HENCE.  JFT  OR  PR JIMP  MUST  PE  CALLED  PEFORE 
CALLING  JETPOS  OR  PRJROS. 


JF  (OISTJ  ,LT.  XRJET)  GO  TO  999 
LUW J  r  LMWJ  .  I 
Lyw JR  «  0 
999  RFTURN 

ENO 
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SUBROUTINE  JETMNT 


SUBROUTINE  JFTMNT 


EL  f  ME'IT  -  BO r<  DISINTEGRATION 

vnfrl  procfss-waifp  if r  and  projectile 

ACTIVITY  -  OrN'RAL  MAINTENANCE  ♦  MfPM» 


c 


c 


c 

c 

c 


c 

c 


c 

c 


COMMON/ALL /  KT.STO.IA.POO.C'.TAMP.FLOrf.IELAG.AT .0 .E ,SK . T .DT . X .BP 
),  XMAX.TM4X.  r-I.XO.AOISCH 

co«mom/momfy/  hjmsid 

C^MOM/NJfT  /  PLT.CPR»L*CST^-,J.0.)MwjM,0N077*nTCJfT.0TMs|fT.0TJjrT 
1  .  ENFRGJ.ETAON.FTAJ.ETAIMP.fTAIPT.MOnEJ.NOUNS.NJETS.PNOS7.PBM 
2,  pajPM.PULAEn.TP-IPL.VOLBBJ.VFLBPJxIPPJ^JET.VrLJET 

CO«HOM/NEWCOm/  LNRAPL.LMWJ.LMWJM.LMWJR.  FHr  ATJ.EOxlATR.rOX 

*CO**MOX|/OLOCOM/  NPARL  .MWJ.MWJM.MWJR.  heatj.owatr.dk. ov 

EOUIVALENCE (SIOC.STR) 

FO  Hv'ALf.Cf  (X'POCK.HOO) 
rnillVALf  NCF  (hpi.mwji 
fouivalence  (LMPl.LMWJ) 

OAT  A  INIT  /O/ 

DATA  NEEOIN  ytl/ 

DATA  IPPJ  /O/ 


10  IF  (OTCJET  .EO.  0. 
;r  (DTAJET  ,F0.  0. 


INITIALISATION 
OT  C JET  =  fr. 

,r  nn^jLi  .c>v.  «.*  OTMJFT  -  ?• 

if  (ippj  .eo.  i  .and.  ojhw jh .Eo.n . i  ojmwjm  =  ?ao. 
I°1J  =  0 
TUNT  *  0. 

1  1WCIT  =  OTCJET 

mwj=0 

UUJM=I 

INIT  a  1 

IF  (NFEOIN  .FO.  0)  00  TO  RR9 
NFFOIN  =  0 
50  TO  700 
ENTRY  PHJMNT 
IPPJ  =  I 
GO  TO  10 


ENTRY  PRJRPR 
IPPJ  a  1 
FNTRY  JETRBR 
IF  (INIT  .EO.  I 
NFfOIw  *  I 
00  TO  10 


NORMAL  entries 


GO  TO  700 


100  IE  (mwJM  .EO,  0) 

T  I  MftT  =  T|Mr)T 
IF  (TIM8T 


IS  MAINTENANCE  IN  PROGRESS 
GO  TO  400 

IS  MAINTENANCE  REOUIREO 
OT 

OT.  0.1  GO  TO  999 

IS  REPOSITIONING  IN  PROGRESS 
IF  (MR JP  .FO.  01  00  TO  999 

LMRJM  =  0 

L“WJ  »  LMWJ  •  I 
00  TO  999 

UPOATE  PROGRESS  Of  MAINTENANCE 


4C0  TMNT  «  TMNT  ♦  OT 

IS  IT  COMPLETED 

IF  ( T“NT  .LT.  OTMJETI  00  TO  999 

LMWJM  =  I 

L«WJ  =  LMWJ  -  I 

NOTF  *•  TO  FORCE  BEPOSITIONINO  AFTER  COMPLETION  OF  MAINTENANCE. 
REPLACE  STATEMENT  ALMWJ  «  LMWJ-I*  WITH  ALNWJB  =  0A  . 

OJMRD  »  OJMWJM  ”«  OJHRD 
T I  MOT  a  OTCJET 
TMNT  a  0. 

99R  RETURN 
END 
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SUBROUTINE  PROJTL 


subroutine  projtl 

-  ROCK  01 5  INTEGRA! ION 

C.fnFRAL  PROCESS  -  PROJECTILE  FRAGMENTATION 
ACTIVITY  -  PROJECTILE  IMPACT 

OR  PROJECTILE  FRAGMENTATION 


C 

C 

C 


C 


C 

C 

C 

c 


c 


COMMON/ ALL/  XT .STP. I A.PQO.CS. T AMR* FLOW* IFLAG.AT.0.F.5K.T.0T.X.PR 
1,  xmax.tmax.to.xo.xoisCh 
COMMON/MONEY/  OJMWD 

COMMON/N JET  /  OLT * CPflPL .CSTPP J.DJMWJM.ONOZZ. DTC JFT • DTM JFT .0!° JFT 

1 .  ENEPOJ.ETAGN.FTAJ.ETAImP.ETaIPT  « MODE J .NOUNS .NJcTS.PNOZZ.ppm 

2,  PRJPM*POLEEO*TRRPL*VOLpPJ*VFLPPJ*WPRj* XRJET 

CO“MON/NEWCOm/  LNPARL.LMWJ.LMVJM.LMMJR.  FHEATJ.FOWATP.mx 

*COmmON/OLOCOM/  N«ARL.MWJ,MWJM.MWJP.  HFATJ.OWATR.OX.nv 

EONlVALENCFluR'lCK.CS) 

FOUIVALENCF  ( S  IOC »  G  TP  I 
FOUIVALENCF  (MPI.MWJI 
FOJIVALENCE  ILMPI.LMWJ) 

DATA  INI T  /O/ 

DATA  NEEOIN  /O/ 

DATA  FACTA. FACTB.FACTC. FACTO. FACTE  /5»0./ 

INITIALIZE 

10  IF  (FT AGN  .EO.  0.)  ETADN  =  0.3 
IF  (ETAIPT  .FO.  0.)  ETAIPT  *  0.2 

PPDJECTILF  enfrgy 

IS  CALL  FOR  INITIALIZATION  ONLY 

IN  IT  s  1 

IF  (NFfOlN  .FO.  0)  GO  TO  099 
NFEOIN  =  0 
GO  TO  200 

NORMAL  ENTRY 

ENTRY  PRJ1MP 

IF  UNIT  .EO.  1)  GO  TO  200 
NFFOIN  *  I 
GO  TO  10 

200  EpFT  *  WPPJ  •  VF.LPRJ  •  VFLPRJ  /  DA. 4 

PROjr CTILE  DENSITY 

PH0P*I72R.*WPR J/VOLPRJ 

ROCK  OENSITY 


BWORsUPOCK 


POCK  FRAGMENTED  PFR  PROJECT  ILF 


X'/PK  s  SHOP  /  PHDS 

RmaSS=I  .A')r-s®  (SORT  (XWPK)«EPFT)»«1 .  1R9 

R’/0LFT*RMASS/WPOCK 

CONSTPUCT  FACTORS  USED  FOP  FACH  TI“E  INCREMENT 
I F ( t FgT  .FO.  II  GO  TO  It 
I FST= I 

PRINT  111 .EPFT.RHOP.R"OP 

111  F0RUAT(1X.  S.‘ERFT  =  .F14.4.4H  RH0P*«F14.4.6M  RH0R=«E14.4) 

PRINT  1 1?. XWPK .RMASS.PVOLFT 

112  FORMAT (IX.  6h  XWPK=.£14»4.7H  PMASS».EIA.4.SH  RVOLFTm.EIA.4) 

END  OF  OERUG 

II  XNRK  s  PRJRM  •  GO. 

FACTA  •  RVOLFT  •  NGllNS  *  «wR« 

FACTS  *  3.1415927  •  0  •  0  /  4. 
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SUBROUTINE  PRJBR 


FF. 


SIPJ^ilTi'-r  P'i-  l~3 

c 

r  PI  r  0  IN  INI  FORA T ION 

C  r.FMEJit  PROCtSS  -  PROJECTILE  ERAGMFNTATION 

c  ACTIVITY  -  BARREL  REPLACEMENT 

Cr.uMO’l/tLL/  «T.ST->.  |A.OnD.CS.TAmH.ELCW.IElAG.AT.O.F .SK.Ttf’T.X.PR 

1.  V*\*  .TMAX  .TO  .  AO  .  XOISC-H 

row“0‘./'',T,lEY/  o  *F0 

C0M!''Dk./NJrT  /  1|  T.CP-l-'L  .CSTPRJ.njMJJM.ONTVi'.OTCJET.OTM  JE  .  .'JT- JET 
1  ,  E'jrsr.J.FT  '.CM  FTAJ«‘rTAr'R.FTAT°T..MOnFj,\r,UNS.N  JFTS.PNO/VfPRR 

2,  po  jpy  ,  p  ji.sF"!  «  T  R«RL  .VDLRP  J«  VTI.PP.J*  WPP  J«X9  JET 

COmm0N/NFWC0‘j/  ;.NP  APL  «L  Mn  J .  JM  .LMirf  JR  *  EHFaTJ,EOraTP«EOX 

1  .  FOV 

Fp\»yNj/0L0C0M/  nraR'l«mwj*m*Jm.r*</jr.  hfatj.owatr*dx*dv 

e'iII'/ALENC*  (SIGC.STR) 
t  r  .IIMalFMOf  ls'ROC<.CSI 
FO  IIVALF’.CE  (MU  ««*WJ) 

FOjIvILENCF  (L»PI.LM»J) 

OAT4  Tr-R  /!)./ 

OATA  D=T1«  /O.Y 
DATA  I  »J  I  T  /0/ 

OAT  A  NEED  I  N  /?/ 

OaTA  TT.CFACT  /P»C./ 

»  INITIAL  1  7  F 

10  T T  =  TPF>PL  •  NOUNS 


r. 


c 

c 

c 


c 


V’A-'L-l 

CFaGT  =  CPAPi.  •  NOUNS 
I N I T  =  1 

IF  !NFFniN  .FI.  01  GO  TO  090 
\rtT>!>i  =  0 
00  TO  POO 

NORMAL  ENTRY 


ENTRY  PPJSPL 
IF  UNIT  ,F0. 
Nr  ED  I N  =  1 
00  TO  10 

POO  IF  (NOA»L  .FO 


I)  GO  TO  POO 


IS  BARREL  REPLACEMENT  IN  PROGRESS 
0)  GO  fO  400 

REPLACEMENT  NOT  IN  PROr.PFSS.  IS  IT  REOilIREO 


A00 


009 


OPT  IN  =  OPT  IN  »  OT 

IE  (G  =  TIM  ,L  T .  PLT)  GO  10  009 

IS  REPOSITIONING 
IF  (■■‘.(JR  ,EO.  0)  GO  TO  900 


IN  PPOOPESS 


L  N  a  A  c  L  =  0 
L'-PI  =  L  MR  I  *  1 
CO  TO  00 0 

PEPLACFMENT  in  progress.  update  progress 

TPP  r  THR  *  nT 

IF  (TRR  .LT,  TT)  GO  TO  000 

REPLACEMENT  COMPLETED 

L  N  a  A  o  L  =  1 
L"aI  =  LMPT  -  1 
p.  =  o JMOfj  *  CF ACT 
T»V  s  0. 

05T I-  =  0. 

RETURN 


'NO 
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SUBROUTINE  MUKLOD 


SUPROUTINF  MiJKLOn 


FLFMCnT  -  MATE°I  ALS  HANDLING 

GENERAL  PPOCFSS  -  MACHINE  LOADERS  •  SHOVFLS 

ACTIVITY  -  LOADING  MUC<  at  facf 


t 


c 


c 

c 


c 


c 


common/ ALL/  *T .STP. IA .ROO.CS. TAMP.FLOW. IFLAG.  AT.O.E.SK. T.DT. X.PR 
I,  XMaX.TMAX.TO.XO.XOISCh 
COmmon/VHKfLG/  NCARS.mlTYP.OuC.WUC 
COMMOM/COMVfY/  ACM.OTPS.OWM.ee ,FL • HP.OC* SM IN . WP I . 

1  wp,  «LF  .NSURGE.OE.OP.SM.OTCB.OTMP.  AP.  VO  I  .NEXON.NGEO. XE .LNSuRG. 

2  GTIMe.OOMM.OTMI.nTMO.FLM 

COMMON/NFWCOM/  LMACON.LMCAPC.LNGPLC.LLO AOS. FOL  »LMKIN.LMOKOT .LNOYHY 
l.LTSTAT (2S.4) .LKSTOP(?SI .LLVHCL.FOV 
f  OMMON/OLOCOm/  MAO0N.MCAPC.NGPL  IC.LOAOP.OL  «MK  IN.MtirfOT  .NBYPY 
1  MS  TAT  (25. 4)  .KST0P(25>  .LVEHCL.OV 
.  7ALENCF ( LLOOP .LLOAOP) 

DA)..  TIMCL.OX.OIIF.MUF.CSPCPK  /5*0./ 

DATA  nCSS.INIT.NCCOIN  /3<*0/ 

INITIALIZATION 

ioo  if  (oomp  .eo.  o.)  oomp  =  saoo. 

IF  (iTIMF  .CO.  0.)  ST I“C  *  .05 
CSOFPx  =  CS  /  <SK  •  2000.) 

INIT  =  1 

I o  (NFF01N  .TO.  0)  GO  TO  400 
nfcoin  *  0 
GO  TO  120 

NORMAL  ENTRY 


FNTRY  LODMliK 


IF  (INIT.FO 
NFFOIN  =  I 
GO  TO  100 
120  IF  (mLTYP  . 

IF  (LVCHCL 


.  I)  GO  TO  120 


EO.  2)  GO  TO  S00 

UNITI7CO  MAIN  LINE  SYSTFM 
.FO.  0)  GO  TO  400 

A  UNIT  IS  AVAILABLE  FOR  LOAOING 


fov=ov 


LLOOR  =  0 

IF  (TIMtL  .ST.  0.)  GO  TO  300 
00  =  OOMP  ®  OT 
130  XM5K=FOV«SS 

IF  (XWPK  -  00  .GE.  0.)  GO  TO  ISO 
on  =  xwR* 

LLOOR  *  I 
FOV-O. 

GO  TO  160 

ISO  FOVzFDV- ( CQ/SK ) 

VOL  ♦  MFIGMT  CAP  OF  UNIT  NOV  BEING  FILLFO 

160  OUF  =  OIF  ♦  00 

tfl)F  s  YUF  .  (03  •  CS°FRK ) 

IF  due  .GT.  OUF  ,AN0.  WUC  .OT.  VUF)  GO  TO  400 

UNIT  IS  FlLlED  ♦  CAN  BF  RELEASFO 

XWRK  =  OUF  -  OUC 
F0V=F0V.XW4K/S< 

OUF  =  0  « 

WUF*0 . 

TIMEL  «  XWRK  /  OOMft 
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120 


r,0  TO  120  UNITS  ARE  REINS  SWITCHED 

TTmfl  =  TI^El.  ♦  OT 

IF  (TI^fl  .LT.  STT'E)  so  to  soo 

00  =  ODMR  •  (TI^FL  -  STINE) 

TTNEL  =  0. 

jf  (NCANS  .EO.  0)  GO  TO  ISO 
NCOS  -  NC°S  ♦  1 

JEINCRS  .LE.  NCARS)  GO  to  130_ 


RELEASE  VEHICLE, 


.ISO 


'IC^S  =  0 
I  s  l'/chCL 

LTST4T ( I <1 1*7 
L*ETO= ( I ) =s 
Ol)F  =  0. 

HUE  =  0. 
r,0  TO  130 


soc 


OT 


CONTINUOUS  MAIN  LINE  STSTEM 


CK 

DO  .OF.  0.)  on  TO  sso 


ssn 
f  00 
SCO 

39S 


so  =  onus 

NC-’SO 

LL  ODJ  =  0 
HWRO  =  0 V 
IE  (XWRs 
OS  ^  xwP K 
LL DDR  *  1 
F1V-0. 

00  TO  600 
Fnv=o J-DO/SO 
FCL=DC/D’ 

TFsO  jF/1.7 

BPl'jT  3SSfNCRSiOUcE*V'UF 

F03,iT (6S<. I7.2F10.2) 

SFT.iSN 

F  *  1 0 
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SUBROUTINE  MUKIN 


SlIROOl JT  I Nf:  «nKIN 

FI. CMFM I  -  MATERIALS  MANCLING 
CFNEPal  PROCESS  -  M A C h I N F  LOAOFRC  *  ShOVFlS 
ACTIVITY  -  XCVF  MUCKERS  TO  «UfK  PILF 

•  ••CUOOE'iTLY,  ThF  CONTROL  PROGRAM  MUST  SET  MKIN  TO  o  TO 
INITIATE  “OVINf,  IN. 

COMMON/ ALL/  «T .ST°. IAiOOn.CS.TAMH.FLOW. IFL»6.AT«O.F.SK.T.0T.»«p3 
I.  XMA X.TMAX.TO.XO.XOISCH 
COMMON/ VMfFLS/  NCAyS*MLTYP*OUC*WtlC 

C0«M0N/C0'iV£y/  ACM«OIHP.r)MM.FF  .FL  •mp^oc.smin.moi  « 

I  YP.XLF.NSi'P,*,F,r;E«0a,SM.nTCI).OTMR,AM.VHI.NFXC,N.Nr.F0.xr.LNSII«0« 

?  STIMf.OnMp.nTMi.OTMO.FLM 

COMMON/'. f  WCOm/  CHACON.!  MCAPC«LNSp3LC»LLOAnt>»FOL*LMK  IN.LMUXOT.LNRYrtY 
I.LTSTAT  <?S.M  ,LKSTOO(?S)  .Ll.VMCL.FOV 
COMMTj/OLncO"/  MACON.MCAMC.NPPL  !C.LOaO»«QL*MKIN.miikot.NBypY 
I.ITSTAT(?S.A).KSTnP(?S».LVEHCL«OV 
FOUIVAIENCE  (Ll.OO».LLOAnS) 

OATA  INI T .NEFOIN  /«>»0/ 
data  TIMIN  /o./ 

C  INITIALI7ATION 

100  IF  (0T“!  .EO.  0.)  OTM I  a  I./I?. 

TIMIN  a  OTMI 
PUT  =  I 

ir  (NFFOIN  ,FO.  0)  CO  TO  900 
NFFOIN  =  0 

no  to  ?oo 

C  normal  ENTRY 

F'ITVY  1‘,'MIK 


IF 

UNIT  .EO. 

11 

CO 

TO 

o 

o 

rvj 

NFFOIN  a  I 

CO 

TO  100 

?00  IF 

(MKIN  .NE. 

01 

00 

TO 

900 

C  MUCKERS  RE  INC  MOVEO  TO  MUCKPILE 

TIMIN  a  TIMIN  -  OT 
IF  (TIMIN  .GT.  0.)  CO  TO  900 
LMKIN  a  I 
TIMIN  a  OTMI 

900  RETURN 
END 
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SUBROUTINE  MUKOUT 


SUBROUTINE  mi, kt.it 

ELP'E'iT  .  ^  A  T£3  |  ALS  i>i'  Hlfr 
GENERAL  PR0CrSS  -  machine  LOAPfWS  ♦  S-OVFLS 
ACTtVlTr  -  m“ vT  “mCkTRS  ana Y  F»OM  FACE 

•••CURRENTLY.  T”F  CONTROL  PROGRAM  wUSt'sFT  MUKDT  TO  0  Tn 
I N  T  T  I  A  Tr  “'Wr/i  0  JT. 

CO mv  Vi /a U /  >  T .FTP . ! A.c  ^O.CS.TAur.tlOW. TFL AG. AT.O.F , . T.OT . t ,OR 

I,  x«A¥tT“*<.n.»o.»"iisc,t 
COM’M  I/..-.F.-L-?/  NC'*RS.,‘LTYR.')..C.WIlC 
C0mu',N/C  j'IVFy/  AC«»rTTPS,0»',.FE.FL.M°.1C.^'MN*KPI» 
t  *p.xlf.';Si:Of.f,qF  .•)£>.V'.r>TCR.r>T,'S,aR.V;>lt,-F«ON.\*FO«,F.l.N<;'|Rr,. 
i*  ST  |mj  .GVR.nT"  1  .OTWO.FLM 

COm*ON/‘.F«CO«/  L“ACO-,.L-CAJC.LNSPLC.LL0AOR.FCL  .LuKI’;.LuU^OT.L‘iPYMY 
I.LTSTAT(?S.R|  ,L<ST'1R|?S)  .LLVXCL.FOV 
COmmOn/OLOCOm/  MACON.MfAPC.NSRL  IC.LOAriR,OL.MKIN.MU<OT.N0YRY 
l.ITSTAT  (?S.<.|  ,<STOP  (?s|  .LVEmCL.OV 
EO'JtVALEN"  (LinP.LlOArR) 

OATA  lUT.N'EFOIN  /P»0/ 

data  tim  /n,/ 

C  INITIALISE 

100  IF  ( OT  y0  0.)  OT  MO  *  l./IP. 

TIM  =  OTMO 
PUT  =  1 

IF  (‘,'rEOIN  .FQ.  0)  GO  TO  900 
\'ErOtN  =  0 
GO  TO  POO 

C  NORMAL  ENTRY 

ENTRY  OUTM.K 

IF  (  I’ll  T  .FO.  II  GO  TO  POO 
NFFOIN  -  I 

no  to  loo 

POO  IF  ( Mi  it*  O  T  .I.P,  Cl  GO  TO  900 

tim  :  tim  -  nr 

IF  (TIM  . O T .  0.)  no  TO  900 
L-jOT  a  ! 

TIM  =  O  T  m  0 

90C  PEJUP-I 

r.,n 
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SUBROUTINE  TRUKHL 


SU9M0UTINF  TOUYHL 

£(  EMr  NT  -  M4Tf3T  ,_S  HANDLING 
GENEPAL  opdCFSS  -  SYSTEM 

ACTIVITY  -  LO' G  ha^il  «ij Cw  tpaNSPQPT 

TECHNI3UP  -  PlldSEP-TIPEO  INDIVIDUAL  DIESEL  PO.ER  TRUCK  UNITS 
f)ll«L  BOADNAYl 

Cqmmdn/ ALL/  XT.STP.IA.PiO.CS.TAMP.FLOW.IELAG.AT.O.F.SK.T.DT.x.PP 

1,  XMAX.TMlX.TO.Xn.xntSCH.nx.rv 

COMMON/  inErLS/  Af • *F , £“ Ax . AM1NL.PSL .CAPCAP.CP.OF.OF.nT  AS.DTmj.OTV 
I  ,  fL,rc«r^«fT.HP,‘.  .H3‘r».s5EV«MpFV«MP'/«ISrf(?5)«L0C0.MC<Ml.il,LTYP 

2.  NCAPS.N:>0riT.NT[).NTlN[».MM.*.T>'AX.N’.IMLO.  XP.NT”  |LP.NTl'LPP  .NTPAC* 

3.  O.IC  «  SL  •  CT  A  T'  IS  Hnl  .TCUP  I  20 1  •  TCIlP'.'Y  1201  •  T“  A  I  NT  .T*F.  VO*  VS.  VF.  VF 

4,  V^AX  ,WC.'»L«  /MY  (24)  .<  ».  WUC.XDS.  AM.HL 
CDmm On/CONVEy/  AC,  AClM.nMAlNT.DTC'i.nTHS.OTMft.OTMl  .nTMn.3WM.EF  .Ft 

1  ,  HP.LNSUP&.NrxOM.NGEO.NSUPGF  .OC  >  OE  «DOMP .  OP .  S«.  SM  Pi.  ST  I  “F  .  VS  I 

2,  W9I .UP. «E. XLF 

COMMTN/NFWCOm/  LISILn.LKSTOP (?S) .LYUNLO.LtSTDP.LLVH CL .LNpYPY 

1  .LNS'WCH.LNTSOA.LNVHCL  .LNmSWT.FSWTCH(20)  .FTFC  I  2SI .ETOPI ?9t 

3.  FTSTAT(PS.A)  .FilTIMF  (25>  .LtnAOP 
COMMON/OLDCD'1/  IF  ILn.KSTOP  (?S) .  yuNLO . LSTOP .LVFmCL  «N3YPY . ‘.'S  WCH 

It  NTPOA.NVfMCL.NIlNSWT  .SWITCH!  20  )  .  TFC  (251  «TOp(2S)  .TSTAT (PS.41 
2#  UTIMEI2S1 .LOADP 
DIMENSION  LTSTAT (25. Si . I TSTAT ( 2S . 4 1 

EOil  I  VALENCE  (CDOlO.  lEILOl .  (C0‘JNEW.L  IFILOl  «  (NVEHCL.N  TRAIN.  NTPIICKI 
1.  (LVEHCL.LTOAIN.LTPUf SI .  (NTDA.NTRDa) , 

2  (FTSTAT. LTSTAT). (TSTAT. ITSTAT1 

3.  (LtVHCL.LLTSAV.LLTPUO  .  (LNVHCL.Lf.TP  AN  .LNTPUK1 
DIMENSION  STaTMPS.A) 

DIMENSION  tSTATEI’D.SI 
EOUIVALENCE  (STATC. ISTATE) 

DATA  STATE  /m»0./ 

DIMENSION  JSTC’IPSI 
DATA  JSTOP  /2S»0/ 

DIMENSION  TE"S ( 2S 1 
DIMENSION  TE'*T(2S) 

DATA  INITSW.  IPETSW  /2»0/ 

DATA  IDPTN  /l/  . 

eduIvalencf  (TVE.WE) 
data  Tr-MS  /2S»0  •/ 

DATA  TE'fT  /2s»0./  ,  .  , 

data  AFMAX.TL  Iu.u  '.MF.W£CI.WrC?.viFEACI.VrEAC2.HPEVP  /S«0./ 

DATA  HPEAC.HDArAC.  HOVFAC  .  wEEAC.FSFAC.FRViE  .  »E"  AX  /7*0./ 

OAT  A  HPFVP.H3FAH.HPFAH.DINCP.CPFC. Vf FT .VFFT.VDSO.OELMAX  /9«0 ./ 

papametep  initialization 

c 

100  INITSW  *  I 

IF  (STRUCK  ,F0,  Cl  NTPUCK  a  1 
ITSTATd.Il  *  2 
TSTAT  II .2)  *  0. 

TSTATII.il  =  0. 

1ST  AT  1 1 .A)  =  0, 

DD  I?0  1*1. 2S 
ISwIIl  *  0 
T£MT( II  i  0. 

TE-Sdl  *  0. 


CONTINUE 

IF 

(WE  .FO. 

0.) 

GO 

TO 

200 

OPTION 

IO°TN  a  2 

IF 

(FP  ,EO. 

o.l 

FP 

a 

6S. 

IF 

(EL  .EO. 

0.1 

FL 

a 

O.AS 

IF 

(FT  .ED. 

0.1 

FT 

a 

0.  IN 

IF 

(AF  .FO. 

0.1 

AF 

a 

SQRRR, 

IF 

(AF  .FO. 

0.1 

AE 

s 

AF 

HPFAC  *  EL  •  379. 
moaFAC  =  hofaC  •  HPA 
mPVF AC  *  HPFaC  •  HPV 
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r»  r* 


c 


c 


c 


*?r4C  =  X17  •  (1.3S  »  CARCAP) 

F3f4C  =  fi?  •  V  r  F  A  (I 
FORE  z  FR  •  wF 
AE^ay  z  AF 

AFRA*  S  AF 

«WRK  z  FT  *  0. 

TL  H  z  X»9»  *  ,F 
TL  !UF  z  «*■  <  «FrAC 

WEC I  z  xF  /  (9.4 

WFCi?  —  39.4  /  Vf 
*FrACl  =  39.4  /  HFFAC 
RFFAC2  z  JFFaC  /  99.4 
XW9*  =  h^yFAF  /  Fi*F 

IF  (VF  •  (VF  -  X»'\)  .r,F .  0.)VF  =  IWR-v 
XVRrf  =  H3VFAF  /  FPFAC 

IF  (VF  •  (v  F  -  X.3',1  . ',F  .  0.1  VF  z  XW3< 
H?EV3  z  F-,F  0  VF  2  - 

HDFVP  z  F9F4F  •  VF  /  -PF4C 

GO  TO  250 

OPTION  I 

200  CONTIS  ;F 

rpfan  =  vir; 

H^FA-i  z  “JF4 


250  OTSC’  z  -■). 


BOTH  OPTIONS 


If  1 1 .1  => T N  .rr‘.  PI  to  255 

<«5'  =  26-1.  ■>  V  F  •  VF  /  F,f 
IF  (*43F  . L  T .  '  I S  *  V I  0INC»  z  *«=F 
XS'VS  —  2640.  4  (VF  •  VF  -  VO  4  veil  /  OF 
IF  (  *  *  3  K  ,.T,  OlsfHI  0(*,CH  z  n  =  < 

255  0FuH?.r  z  OIS.-P  /  (S?40-  ,  vf) 

IF  (CP  . FO .  0.)  OP  z  0.14 

IF  (Ff  .FT.  -'.1  FC  =  0.06 

CaTC  z  C3  •  F.c 

yFFT  z  V  •"  •  s  J  c  ;  , 

VFFT  :  VF  »  FPF0, 

VOST  :  VI  ■  v0 

3=INT  260.  VF.  VF 

260  F09HAT  (1?hitRuC*  VF  z  .F10.3.SH  VF  z,  F10.3) 

**5  Call  FTO  INITIALISATION  only 

if  (IP£TSv)  270.599,270 
270  I«:TSW  =  0 
GO  TO  150 


NORMAL  ENTRY 


c 

c 


c 


ENTRY  TR J< TR 

HAS  INITIALISATION  aE  f  N  PFPFORvfO 

IF  (I-'ITS-M  150.320.350 
320  IPFTSN  =  1 
00  TO  101 

350  »wRr;  z  (;, r  /  OFL“4X)  •  1  , 

N I Y  E  N  z  XV3* 

YWR<  z  NIIFR 
TFRAC  z  XrlSF  -  Yv5A 

RETRIEVE  /OL0xR</  VARIARLF5 

DO  155  J=  1  .sT’iic-r 
ST1TF(J,I)zTsT4T(J.U 
STATE ( J , 2 1  z  TST47(J.2) 

STATE  I J. 31  =  TSTat(J.3) 

ST4TF ( J.4)  z  TSTJT ( J . 4 ) 

JSTOO(J)  z  KSTCP(J) 

3SS  CONTINUE 

ISTOPT  ^  L6T03 
360  LLTR  l<  z  0 

OFlTAT  =  DEL  w  A  y 

IF  (NITER  .Fi.  j)  OELTAT  z  TFOAC  •  OELH4X 
072640  =  O-CLTAT  •  2440. 

OTvEFT  z  FrL  t  AT  •  vEF  t 
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OTVFFT  a  OELTAT  •  VFF T 

dtcpfc  =  oeltat  •  cpfc 

0TD4YS  =  OEL TAT  /  24. 

I4RK  =  i  S  TOP  T  .  I 

GO  TO  (500. 400. 450) •  IU  =  K 

SYSTEM  MUST  BE  SMUT  OOkN 

400  00  420  J=!.NTRUCK 

IF  (JST0?(J>  ,NE.  0)  GO  TO  420 
I HRK  =  IST4TFIJ.I) 

IF  ((I.'RK-IO)  •  (IkRK-II)  .£0.  0)  GO  TO  420 
JSTOP(J)  =  4 

IF  ((IwRK  -  4)  •  d*PK-7)  .FO.  0)  GO  TO  420 
JWRK  =  (I  .|PK  •  1)  /  2 
IWPK  -  I<d<  /  ? 

I«T4TF(J.l>  =  7 

IF  (IwBX  .FO.  J'ARK)  IST4TEIJ.1)  *  6 
420  CONT INUE 
GO  TO  475 

SYSTEM  MUST  BE  B SOUGHT  UP 

450  00  470  Jd.NTWUC* 

IF  (JSTOP(J)  ,Nt.  4)  GO  TO  470 

J«TOP(J)  =  0 

JpRK  =  1ST  ATC ( J» I ) 

IF  (J^S<  ,E0.  0)  IST4TF(j,n  =  2 
IF  (JWBK  .FO.  1)  ISTATE(J.l)  a  3 
470  CONTINUE 
475  ISTOPT  =  0 

APPLY  OELTA-T  TO  ALL  TRUCKS 

500  PO  750  I  =  I .N TRUCK 
0FLT4C  a  0. 

STATE (1,4)  a  STATE { I . 4)  ♦  OTOAYS 
ISTAT  =  !NT(STATC'(I.I)) 

TPOS  a  STATE  1 1 .21 
TS°0  a  STATE  I  1.3) 


C  CRASH  COOING 

I5TATO  *  ISTAT 
OTPOS  s  TPOS 
OTS"0  a  TSD0 

C  CNO  crash  COOING 

I JS TOP  a  JSTOP(I)  *• 

TfKil  a  Tfaj  ( I )  ' 

TEMTI  =  TF«T(I) 

IwRK=isT4T«I 

50  TO  (510, 750. 550, 570.5RO.5IO.630. 650.750. 750.750,750), I WRk 
C  TRUCK  IS  EMPTY.  AND  HAS  STOPPED 

510  IF  (IJSTOP  .GT.  I)  GO  TO  750 

C  TRUCK  IS  BEING  LOADED 

LTRUCK  a  I 
GO  TO  750 

C  TRUCK  IS  ACCELERATING  EMPTY 

550  IF  (IOPTN  -  |)  5B4.S53.5B4 

551  AFA  =  PPA  -  rRNE 

IF  (AFA  .LT,  0.)  AFA  a  0. 

AF  a  AFA  •  AFC’ 

IF  (AF.  GT.  AFUAT)  AE  a  Af  MAX 
IF  (DF  .GT.  0.)  GO  TO  553 
TFmTI  a  TF«T T  «  OFLTAT 

TEmSI  a  TEMSI  .  OT2640  •  (AE  •  DELTA!  *  2.  •  TSPO) 

553  YI  =  A^  •  PELTAT 

TPOS  =  TPOS  •  OT2640  •  (Yl  ♦  2.  •  TSPO) 

TSPO  =  TS°0  •  YI 

IF  (IOPTN  , EG.  2)  HPfAHa  (AE»WECI »FRVF)  •  TSPD/HPFaC 
IF  (HPA  .GT.  0.  .AND.  HPEAM  .GT.  MPA)  hPFAH  a  HPA 
CELT  AC  a  H3E  AH 
IF  (TS=0  -  VF)  5SB.554.554 

554  ISTAT  *  4 


/ 
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T  ^ 


I ‘j  T3hC\  appqoaC-iI'.P  A.L'a 

if  <i  pin  .-  .  l )  go  n  so 
if  ( ■;••  .  -t  .  - . )  ",i  to  s‘-o 

[f  (?.  '  T30;  ,  <1  JS7.'.T  p  6 

C»A S-*  CODING  NrTOFi)  WX  Of/P.F  =  0  FI'FO 

GO  TO  V-A 

9  p  rsjo  •  »  ?64 o.  /  of 

crash  coping  ‘ 

xxJ'.  i  r^'S  •  a 

!-  |r.^  .or.  <1  T',T:.T  =  6 

if  (<,-'•>  .ox.  »  .ant.  istato  .fo.  ;>)  on  tt 

FNO  C PAS-i  C;  hog 

GO  TO  69S 

cdash  cooing 

POFUfNT  TpiKV  F->0“  CRASHING  E«PTT 
;<•.>  I  i-:»  t  t-OT-'OG)  '  (  P‘vO.»  .TSPO^OTSPO) ) ) /  ( ,’64  0 . »  ( OF •  AF ) ) 

IF  { 7  ,S'  .IX .  1  GO  ro  >>CS 

T  9  p  0 »  :  r  «,|P"  l 

OTPP  i(ISJ  <  -  OTO'F)  /  AF 

t  =  os>  =  or- of  •  iorpp*PGi.o.)e’( jf“otpp  .  ?, *00930) 

IF  (TPOS«  ,LT.  OTP'.Gt  GO  TO  6NP 
Or^TSC  p  i5;l  «  T  S  p  I'  X  /  rSPO 
OTPPP  9  C-'CTAT  -  GTPP 

71  s  -F  O  0TPP3 

TP-'S  =  IP3SX  .  (?6-0.  •  OTPPP1  •  1?.  •  T 9PO-X  -  Tl) 

TfPO  p  T S3 ; < 

GO  TO  63? 

FNO  C»A9h  COOING 
TPUCX  IS  ACCELERATING  FULL 
IF  ( ;  op  tn  -  | I  V4.G72.S6-. 

AFJ  ;  .-1  .  pf  AC 

IF  UFA  ,LT.  C.l  ATA  =  0. 

af  =  .  rr-'i  > f a 

if  (  A  F  ,--r.  .•.-'••in  AF  3  AFuA« 

IF  CF  ,0T  .  0.1  r.o  TO  S72 
T:-TI  =  T r  9  T  I  •  '-V7AT 

TF  4S  I  =  T  r  v  S |  .  DT2-A0  •  ( AF»PELT  A  T  *  ?.*TSPD> 

7  1  3  tr  •  ‘  L  T  *.  I 

TO0S=TP0S-0iLTAT*PG-J,»(rl  ♦2.»TSP0» 

T  9  P,0  r  TGP'l  .  V  1 

IF  (IOPTN  ,fo,  ^1  -AF1-:  (AF » »F FA o? . F PF AC )  •  TSPn/^PFAC 
IF  (HPA  .01.  0.  , A  N  C  *  ->FiN  .or.  HPA)  nPF  A-  p  hPA 

oflTAC  =  hp"a-» 

IF  t  T  9  R  0  -  ;f 1  S7P.974.S74 
I  9  T  A  T  p  S 
TSPO  p  V F 

if  truCS  APPROACHING  DISCHARGE  POINT 
IF  (IOPTN  .f-,.  I)  GO  T  j 
IF  (OF  .OT.  P.T  GO  T 
IF  (X  -  TP  OS  .IT.  TP J '  GO  TO  6<7A 

CPAS-  COPING  NEEDED  «HFN  pF/DE  p  0  FI  »F0 

ISTAT  3  7 

T  f  4  T I  =  TFHTI  •  (T'-Pj  -  VP)  /  TSPO 
ISR( I )  p  10O 
GO  TO  900 

a  p  ’*40.  •  (T9P0MSPP  -  VOSO)  /  OF 
IF  (EPOS  .F-T .  P)  00  TO  609 
I  9  T  A  T  p  7 

19.  (  I)  P  lOD 

coavi  cum 

IF  ITPOS  ,1.1.  a  .AGO.  IGI AT J  ,F0.  0)  GO  T)  M2 

F NO  CRASH  COOING 

GO  TO  696 

C»A9H  COOING 

P  P  F  v  F  ‘  T  T  P',07  F-0*  C--A,  F  L  L 


58?  XWOSs  ( OF*  (  AF«0TPOS  «26A0  .  ®GT  SPD#OTSPO>  ♦  26A0  •  *  Ar  *Vi>SO )  / 

•  ( 2690  •  *  <  OF  •  AF  1  > 

IF  (XWOK  ,LT.  9.)  GO  TO  698 
TSPQX  a  SORT IXV^S) 

0T=P  =  ( T530<  -  0TSJ0)  /  AF 

TPOSX  a  OT°OS  -  <OTPP*26AO.)®(AF*OTPP  •  2.®0TSP0) 

IF  (TPOSX  .GT.  OTPQS)  GO  TO  698 
OFLTAC  *  H3FA  •  TSPOX  /  TSPO 
QTapp  s  DELTAT  -  OTPP 

ri  i  or  •  oippp 

T°0S  *  TPOSX  -  (2680.  •  OTPPP )  •<<’.•  TSPDX  -  YI) 

TSPO  a  TSPOX 
GO  TO  55? 

End  cpash  cooing 

584  pPA  =  TL  Iy 

IF  (ISTAT  .EO.  3>  PP A  =  TLIyF 
IF  |H°t  ,E3.  0.)  GO  TO  S85 
Y1  *  PPA 

IF  (TSaO  .GT.  0.)  V I  a  HPAFAC  /  TSPO 
GO  TO  S89 

585  IF  (TSPO  .GT.  TCUPVX(D)  GO  TO  586 
Y!  *  TCU9VYII) 

GO  TO  S99 

586  00  SA8  K-2.NP0TNT 
XWRK  a  TCIPVXIO 

IF  ( XW9K  .LT.  TSo0)  GO  TO  586 
YW?K  a  TCllPVYl’f) 

Y I  a  y*R<-(  (xwJ<-TSP0)#(YwP6-TCIlRVT(K-I)>/(Xl<P<-TCU«VX(<-I>)) 
GO  TO  589 

588  CONTINUE 

YI  a  TCUPVY  IN»9INT> 

589  CONTINUE 

IF  (YI  .LT.  PPA)  9PA=YI 
IF  (ISTAT-?!  S7I.S61.57l 

TRUCK  E8PT7.  GOING  AT  FULL  SPFEO 

590  TPOS  a  TPOS  .  OTVEFT 

IF  (IOPTN  «E9 •  I)  HPEVP  *  MPF V 
OELTAC  *  HPEv? 

GO  TO  5SA 

TRUCK  FULL.  GOING  AT  TULL  SPEFO 

610  TPOS  a  T=OS  -  OTVFFT 

IF  (IOPTN  .EO.  I)  HPFVP  »  mPFV 
DElTAC  *  HPFVP 
GO  TO  578 

TRUCK  IS  DECELERATING  F*PTY 
630  IF  (OF  .FO.  0.)  GO  TO  636 
Y (  a  OF  •  OELTAT 

TPOS  a  T=OS  .  OT2640  •  <2.®TSPP-YI> 

832  TSPO  a  TSPO  -  vl 

IF  (TSPO  .GT.  0.)  GO  TO  698 
ISTAT  »  0 
TSPO  a  0. 

TF“TI  a  0. 

TF-SI  a  o. 

IF  ( I JSTOP-6 )  680.698,640 

RINPULL  OPTION  2 

636  TF«TI  TEyTI  -  O'LTAT 

IF  (TF.TI  .GT.  0.)  GO  TO  699 
ISTAT  -  0 
TFNTI  a  0. 

T«PD  a  0. 

IF  (IJSTCP  .‘|E.  A)  GO  TO  680 
TPOS  =  T°OS  •  TtySI 
TFMSI  a  0. 

GO  TO  699 


TRUCK  IN  LOAOING  AP£A 


o  n  o 


640  TPPS  =  x 
IJSTOP  =  1 

TEMSI  =  o. 

GO  TO  698 

TRUCK  IS  DECELERATING  FULL 
650  IF  (DF  .FQ.  0.)  GO  TO  654 
Yl  =  DF  *  OFLTAT 

TPns  =  TPOS  -  OT2640  *  <2.«TSPD  -  Yl) 

652  T SPD  =  T5P0  -  Yl 

IF  (TSPO  .LE.  0.)  GO  TO  658 

IF  (ISW(I)  ,EQ.  100  .AND.  TPOS  .LE.  0.)  GO  TO  660 
GO  TO  698 

RIMPULL  OPTION  2 

654  TFMT I  =  TEMTI  -  DELTA! 

IF  (TEMII  .GT.  0.)  GO  TO  608 
IF  (IJSTOP  ,FQ .  4)  TPOS  =  TPOS  ♦  TEHSI 
IF  (ISW(I)  .EQ.  100)  GO  TO  660 
658  ISTAT  =  1 
TSDD  =  0. 

GO  TO  662 
660  IS'<MI)  =  0 
ISTAT  =  10 
tspo  =  vn 
TPDS  =  0. 

662  TEMTI  =  0. 

TEMSI  =  0. 

698  STATEd.l  )=ISTAT 
STATE ( I »2)  =  TPOS 
STATE ( I »  3)  =  TSPD 
JSTOP(I)  =  IJSTOP 
TFMS(I)  =  TFHST 
TEUT ( I )  =  TEMTI 

DEBUG  PRINT 

Ir  (ISTATO  .LT.  2  .OR.  ISTATO  .GT.  3)  GO  TO  700 

FND  OF  DEBUG  PRINT 

700  DjuMH  =  DJMMH  ♦  (DFLTAC  *  DTCPFC) 

750  CONTINUE 


IS  ANOTHER  ITERATION  REQUIRED  FOR  THIS  DT 


NITFR  =  NITFR  -  1 
IF  (NITER)  900 » 900 «  360 

UPDATE  /NEWWRK/ 

900  DO  920  J  =  1 « NTRIJCK 

FTSTAT (J«1)=STATE(J*1) 

FTST AT ( J »  2 )  =  STATE ( J»  ?) 

FT8TAT(J,3)  =  STATE ( J «  3 ) 

FTST  AT ( J«  4 )  =  STATE ( J « 4 ) 

LKSTOP(J)  =  JSTOP(J) 

920  CONTINUE 

LLSTOP  =  ISTOPT 
999  RETURN 
END 
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SUBROUTINE  TRNPRT (ICYCLE) 


KK. 


000003 

000003 

000003 


000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000003 

000006 

000006 

000010 

000014 

000015 

000017 

000021 

000022 

000023 

000025 

000033 

000033 

000035 


000040 

000046 

000053 

000055 

000057 

000060 

000062 

000064 

000065 


SUBROUTINE  TRNRRT ( ICYCLE ) 

C 

C  ELEMENT  -  MATERIALS  HANDLING 

C  GENERAL  PROCESS  -  CONVEYOR 

C  ACTIVITY  -  LONG  HAUL  MUCK  TRANSPORT 

C  TECHNIQUE  -  TROUGH  BELT  CONVEYOR 

C 

COMMON/ ALL/  XT,STR, I A»RQO,CS,T  AMR*ELOW* IELAG* AT*D*E  *SK * T  « DT  «  X ♦ PR 
1,  XMAX,TMAX,TO»XO*XDISCH,OX 
COMMON/MONEY/  OJMMH 

COMMON/CONVEY/  ACM *DTBS *DWM»  EE , EL  »HP ,QC*SM IN, WBI  * 

1  WP*XLE,NSURGE*QE*OP»  DTCB * DTMR * AR * VBI »NEXON»NGEO » XE »LNSURG * 

2  STIME»QDMR»DTMI »DTM0*ELM.DMAINT 

COMMON/NEWCOM/  LMaCON,LMCAPC*LNSPLC*LLOADR*EQL*LMKIN,LMUKOT»LNRYRY 
COMMON/OLDCOM/  MACON, MCAPC.NSPLIC.LOADR.QL.MKIN.MUKOT.NBYPY 
EQUIVALENCE  (PR, PC) , <  XDE , XE ) 

REAL  LIR,  LRP*  LAM 
DIMENSION  YKY (3) 

DIMENSION  WR (11),  VB(ll),  XIIR(ll),  XlRR(ll),  PLIES  (11) ,QB(11) 
DATA  XIIR/5.,  4.5,4. ,4. ,4 . ,3.5 , 3.5, 3.5, 3. , 3. ,3./ 

DATA  XIRR/1G , , 10. ,10. ,10. ,10. ,10. *10. *10. *10. *B. *8./ 

DATA  PLlES/3.,4.,5.,6.,7.,8.,9.,10.,12.,12.,12./ 

DATA  QR/4 . ,  4 .5, 5, 7,  7.2,  9.6,  11.5,  14.2,  16.9,  19.4,  21.8,  24.3/ 
DATA  WB/18. » 20. ,24. ,30. ,36. ,42. ,48. ,54. ,60. ,66. ,72./ 

DATA  vR/300., 350., 400. ,450,, 500., 550. ,600. ,600., 600. ,600. ,600./ 
DATA  WPCOMO.AC,LIR*LRR,LAM,WR»X1  /7»0./ 

DATA  YKY  /3*0./ 

DATA  ARG1,ARG2,ARG3,ARG4,HPS  /5*0./ 

DATA  LIMIT, N, II, I  /4*0/ 

C  DETERMINE  BELT  CAPACITY 

IE  (ICYCLE  .GT.  1)  GO  TO  110 
ICYCLE=5 

IE  (VRI  .LE.  0.0)  GO  TO  20 
C  OPTION  1 

WPCOMP  =  60./2000.  *  AR  *  VBI  *  CS/SK 
QP  =  60 • *AB*VBT 
DO  10  1=1,11 

IE  (WBI  ,NE.  WP(D)  GO  TO  10 
II  =  I 

GO  TO  90 

10  CONTINUE 
PRINT  11, WBI 

11  EORMAT  (  13H  BELT  WIDTH  =  ,E10.2,  15H  IS  NOT  IN  LIST) 

STOP 

C  DESIGN  CONVEYOR  OPTION  2 

20  DO  30  I  =  1,  11 

C  SOLVE  EOR  WPCOMP  (EST.  PEAK  TONNAGE  COMPUTED)  THAT  MATCHES  OR  IS 

C  GREATER  THAN  WP  (EST. PEAK  TONNAGE  INPUTTED) 

AR=  ( 1./144.)*(0.1247*WB(I)*WB(I)  -  0.8245*WB(I)  ♦1.311) 

WPCOMP =6 0./2000,*AB*VB(I)*CS/SK 
IE  (WPCOMP  .IT.  WP)  GO  TO  30 
11  =  1 

VBI=VB ( I ) 

WBI=WB ( I ) 

QP=60 . *AB*VB I 
GO  TO  50 
30  CONTINUE 


VI-146 


o  o  o  o  o  o  on  o  o  n  o  o  o  on  on  o  o 


35  ppT'.T  40 

40  n-jyiT  c  i  o '  h  cos/eyop  ne  s  t  r  m  can  not  sf  r>\  >.?  fC'<  given  °>f-<  tosag 
If  AMO  MAdlMJv  T  37  ftL  C-OSS  SEC  Tin>:  Of  S  T  «l)C  T I  l-ir  ) 

STOP 

C  CH£C<  f OP  M.w.  T1T.L  fPOSS  SECTION  Cf  CONVEYOR  STP'jCTuPf 

50  »C*10.P-»  .  0  7  *-  -  -  !  -  ,00PM»*:<1,*-,1  •  .0004  l4'*..‘-.l*«:l*«PI 
If  (AC  .GT.  .v-w)  00  TO  OS 
SELECT  rif'.f-  i0  oiLLfP  SPACING 

II  is  Th-  «n-S.*9I-I  or  7-f  -  f  L  T  WIOIH  BEING  USED 

90  l i p  =  * : : o  mi 

l_B9s*  [-»  ;  (IT) 

LAV*  s.OOO*c<*IOPiTI)«IOO.«a-U.2.I3/UP»  .035«',P(I1) 

1  «?.*AP 

If  ( XLF  .St.  o.l  TP  TO  no 

X|_F  =  PLIES(II)  •SS.A.-I/d.f.a^LAHi  -  300. /LAP 

C0M°A  PC  CONV-'Y  OP  c  A=iC  1  rv  dlTH  T-AT  PfOUlPfO  fOP  GIVEN  AOVANff  PATE 
compute  Pf'.uip-i0  r 1  r  t 
110  w°=(  1  ./2000. 1  *'L»CS/S< 
pp I st  ?oo..pro,jp..p 
200  FOPMAT  (BOA, 2/10. 2> 

if (wpcomp-pp)  no.uo.ias 
lao  l“Caoc=  o 

GO  TO  I6C 
12S  L“CAPC  «  0 
GO  TO  ISO 

CAPACITY  of  row  f  TOP  f  «Cff  OFO 
IS  Tr-fPf  A  S  lA'.f  al».  TO  MSLO  f  xC'S-.  m  jC< 

130  If  (SSjPGf  II  TO  TO  IO 

case  i  -  -n  s a p c* r 
TUPS  Off  fXCi.'ATOO  OS  'if a T  CYCLf 
LMCAPC  =  I 

IV.  pp  I  S  T  135.  *,OT.»P..?C'"4P.v..ll,v9t.AP 

135  f  O  P '/  A  T  (  33-! rY  . CAPACITY  r«;ffCfO  AT  «  =  .  Fin.?, JOB  AND  TT“F*. 
l  f  lo.a/i  r  > . to./-,  -"i  i  "f  o  =.  f  1 0.3/1  ox .  i  ah  to-./mp  =p'v:ofo=. 
a  F I  0.2/1  r  < .  I  ’  •  T  f  10.3/10X.12-  OfLT  SPtK0  =  .f  1  5. »/ 

3I0».?1“|  Fl">.  C>.V  Sf.'TlS'.i.f n.?/I 
GO  TO  1ST 

CASE  p  -  S 1 : •  -  -IS  -AS  SF.-S  PPG/lOfO 
140  0r=  ( OL  -  0JI  *  IT 
call  s.ip *■' 

If  IL'IS'JP.-,  .of.  n  GO  TO  ISO 

If  CAPACITY  -AS  PSf.'l  F»Ctf Of 0  T~FN  STOP  EXCAVATOR  IN  '.'XT  CYCLf 
L“C4=C  =  I 
GO  TO  134 

FOP  A  SYST'-  CONTAINING  A  SU-ff  B I N  IT  MAY  HE  NFCE5SAPY  TO 
SUBTRACT  f4C“  T-f  SIS  <i- if'!  hPCG'-tP  IS  GREATER  Than  »R 

150  0S=  (  OP-T.L  1  *37 

CALL  SJAff? 

MOTOR  Sha/T  -G'5FP0-f p 

fop  0=11".  a  -  .p  /  st  a f  nspivrn 

ISO  If  (“P.GT.0,01  GO  TO  IrO 
«!  =  x/xlf 

T -f -f  APf  T.T  f OUA T  1  S  FOP  HP,  GNf  FOP  N=0.  O’.f  F CP  N  GPfATFP 
THA'J  o. 

»1  IS  T -if  L A 4 - G A  (FT)  .RICH  IS  OpsCBTPffi  Is  T-f  .PITFjP.  IT  CAS 
BF  X.  xLf .  OH  x-ALf.fOP  / 1  =  x .  1  IS  5fT  TO  I,  FOP  Al  =  <Lf. 

I  IS  SET  TO  p,  FOP  aUX-XLF.  I  IS  St  T  TO  3.  YKY  IS  AY  1’i  T-.F 
DOCUMENT AT  IGs. 


Reproduced  from 

best  available  copj^jjy 
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I F  (M.GT.O)  GO  TO  157 
1  =  1 

LtxlT-2 

X1*X 

GO  TO  1 55 

157  L  1«IT  =  I 

1=2 

Xl=XLF 

GO  TO  150 

158  LI“1T*? 

1  =  3 

Xl=X-XlF 

150  IF  (XI  .GT.  800.)  GO  TO  161 
YKY (11=  .035 
GO  TO  163 

161  IF  (XI  .GT.  1000.)  GO  TO  162 
YKY ( I )  =  • G  3? 

GO  TO  168 

162  IF (XI .GT .  1400.)  GO  TO  163 
Y*Y<1)=  .030 

GO  TO  168 

163  IF  (Xl  .GT.  2000.)  GO  TO  160 
Y*Y ( I ) -  .028 

GO  TO  168 

164  IF  (XI  .GT.  2500.)  GO  TO  165 
YKy(I)*  .020 

GO  TO  168 

165  if  m  .GT.  3000.)  GO  TO  166 
YKYIlls  .018 

GO  TO  168 

166  Y*Y ( 1)=  .018 

168  (F  (LIMIT  .N".  2)  GO  TO  153 
42  01  =  V3I/33000. 

AP02  =  . 0 " 0 48 »  (03(11)  •  100.  »A8)  *2.1  3/L 1 S 

& o r, 3 s  jacC’P/.UO. 

*004=  &3G 1 *550  « 

IF  (8  ,GT.  0)  GO  TO  170 

H2S  =  X»4PGl«(i0'2.  (YKY(l)..01S>  III)  )  . AP03* YK Y ( 1 > »X . »PG4 
GO  TO  173 

170  h  D  S  =  s#(*Lr#A:?r=l#(AOC«?»(Y,,'Y(?)*»01S)  #QR  (  T  I )  )  ♦  YKV(2) 

1  4QG1»xlf  •  APG4)  . 

2  (X-S»XLF)»43G1.(4S32*(Y<Y(3)  •  .015)  *03  (ID)  •  YKYOM 

3  (  X-N»XLF)  •  *.3G3*43'i4 

;  OPTION  2  -  E  MAY  PE  SPFClFlfn 

IF  (FF  .LE.  0.0)  FE  =  0 . 76 
175  0Jm“8=oc,8PS#0.746i,i3T/EE  «0J“MH 
return 

;  0=T10s  1  -  ho  4N0  E  MOST  8E  SPECIFIED 

180  IF  (Fr.LE.  0 , ) EE  =  0 . 76 

n.lMu^r  PC*«3«X»3.746»DT2EE  ♦0JM“h 

OETUOM 

r>n 
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LL.  SUBROUTINE  EXTNSN(ICYCLE) 


SUBROUTINE  EXTNSN(  ICYCLE) 

C 

C  ELEMENT  -  materials  handling 
C  GENERAL  PROCESS  -  LONG  HAUL  CONVEYOR  RELT 

C  ACTIVITY  -  EXTENSION  OE  THE  BELT 

C 

000003  COMMON/ALL/  XT . STB . I A , ROD, CS , T AMB.ELOW. IEL AG, AT ,D. E. SK » T , DT , X ,PR 

1.  XMAX.TMAX.TO.XO.XDISCH.DX 
000003  COMMON/MONEY/  DJMMH 

000003  COMMON/CONVEY/  ACM, DTRS.DWM, EE, EL, HP, DC, SMIN.WRI • 

1  WP.XLE.NSURGE.OE. OP,  DTCP.DTMR.AR.VRI .NEXON.NGEO ♦ XE.LNSURG. 

2  STIME.ODMR.OIMI.DTMO.ELM.DMAINT 

000003  COMMON/NEWCOM/  LMAC0N,LMCAPC,LNSPLC*LL0ADR,EQL»LMKIN,LMUK0T,LNRYRY 

1,  ESM 

000003  COMMON/OLOCOM/  MaCON.MCAPC.NSPLIC.LOADR.OL.MKIN.MUKOT.NRYRY.SM 

000003  DATA  T/0./,DTE2/0./,DTRS2/0./ 

000003  DATA  DTE  /0./ 

000003  DATA  ELA.ELS.S  /3*0./ 

000003  IE  (ICYCLE  .GT.l)  GO  TO  30 

000006  ICYCLE  =  5 

000006  GO  TO  (1,2,3) »MGEO 

C  GEOMETRY  1  -  ASSUME  E(.A  EXTENDS  THE  EULL  LENGTH  OE  CONVEYOR 

000015  1  ELA  =  EL 

000016  ELS  =  0. 

000017  X  =  EL 

000021  GO  TO  10 

C  GEOMETRY  2  -  ASSUME  FEEDER  CONVEYOR  EXTENSION  IS  SMALL  (EL=0> 

C  AND  EMPTIES  INTO  SHAFT  DIRECTLY 

000021  2  FLA  =  0. 

000022  ELS  =  0. 

000023  GO  TO  10 

C  GEOMETRY  3 

000023  3  ELS  =  0. 

000024  SM  =  SMIN 

C  DETERMINE  CONVEYOR  STRUCTURE  EXTENSION  PARAMETERS 

C  OPTION1  -  XE.DTBS  INPUT 

C  OPTION  2  -  XF  =  E  (W8.LIR) 

C  OPTION  2  -  DTRS  = 

000026  10  CONTINUE 

C  NORMAL  ENTRY  POINT  AFTER  FIRST  CALL  -  INCREMENT  DT 

C  IS  EXTENSION  SHUT  DOWN 

000026  30  IE  (NEXON  .EO.  1)  RETURN 

C  PELT  SPLICE  nR  STRUC.  EXTENSION 

000031  PRINT  501. ELA, ELS 

000041  501  FORMAT (96X.2E10. 2) 

00004J  IE(NS»LIC  .EO.  0)  GO  TO  31 

000043  IE (LNSURG  .EO.  1)  GO  TO  112 

000045  GO  TO  122 

C  CONVEYOR  STRUCTURE  ONLY 

000046  31  IE  (NGEO  .NE.  3)  GO  TO  40 

C  GEOMETRY  3  -  CYCLIC  OPER. 

000050  IE  (DTE  .NE.  0.0)  GO  TO  32 

000051  DTE  =  DX/XE 

000053  32  DTE  =  DTE  -  DT 

C  UPDATE  CONVEYOR  STR.  COMPLETED 

000055  ELS  =  ELS  ♦  nx 

000057  IE  (DTE  .GT.  0.)  GO  TO  33 


u  uu 


lnsysy  ■  0 
OTE  »  0. 

60  TO  100 
33  LNSYSY  ■  1 
no  TO  100 

C  GEHOFTRY  1*2-  CONTINUOUS  OPERATIONS 

C  CONVEYOR  STRUCT.  COMPLETEO  IN  OT 

*0  ELS  »  ELS  •  XE'DT 
C  AVAILABLE  CONVEYOR  AFTER  OT 

IE  (NGEO  .NE.  I)  GO  TO  *S 
FLA  •  FLA  -  OX 
GO  TO  60 
*5  ela  ■  0. 

FL  »  EL  •  OX 

C  CHECK  TO  SEE  IE  CONVEYOR  EXTENSION  HAS  CAUGHT  UP  TO  EXCAVATOR 
60  S  »  FL  -  ELS  -  FLA 
IF (S  ,GT.  0.)  GO  TO  80 

c  conveyor  extension  has  caught  up.  let  advance  of  conveyor 
c  eoual  excavator  for  THIS  OT. 

FLS  rn  TLS  -OT*XE  •  OX 
GO  TO  100 

C  CHECK  TO  SEE  IE  EFEOER  RUNAWAY  TOLERANCE  IS  EXCFEDEO 
00  IF  (  S  .GE.  SN)  GO  TO  00 
LNAYRY  »  0 
GO  TO  100 

C  EXCEEOFO  -  THEREFORE  TURN  OFEEXCAVATOR  NEXT  OT 
90  LNRYRY  ■  1 

C  CHECK  TO  SEE  IE  PELT  S»LICE  NEEDED 

100  GO  TO  (I0S.106.I07) .  NGEO 
C  8FLT  SPLICE  NOT  NFEOEO 

101  LNSPLC  »  0 
RETURN 

105  IF  (FLA  .GT.  0.)  GO  TO  101 
GO  TO  109 

106  IF(FL  .LT.  ELH)  GO  TO  101 
GO  TO  109 

107  IE  (S  .LT.  SNJ  GO  TO  101 

C  SPLICE  NEEDED 

109  LNSPLC  »  1 

IF  (NSURGE  .EO.  1)  GO  TO  110 
IE  (NGEO  .EO.  XI  GO  TO  III 

APE  THERE  surge  SINS  TO  HOLD  HUCK  OU»ING  SPLICE 
CASE  I  -  NO  SURGE  HINS  (NSURGE  »  0) 

LET  CONVEYOR  STRUCTURE  CATCH  UR  TO  EXCAVATOR  AND  SPLICE  PElT 
'.10  OTE  -  (EL  -  ELA  -ELS  )  /XE  ♦  OTSS 
GO  TO  112 

111  OTE  «  DTPS 

C  TURN  OFF  EXCAVATOR  UNTIL  THIS  IS  COMPLETED 

112  OTE2  ■  0TE2  .  DT 

IE (0TE2  .GE.  OTE)  GO  TO  113 

LNSPLC  ■  1 

RETijpn 

C  SPLICE  COMPLETEO  -  REINITIALIZE 

1 13  LNSPLC  ■  0 

GO  TO  (11A.US.I16).  NGEO 
II*  ELA-o. 

0TE2  ■  0. 

RETURN 
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non 


115  fl  =  n. 

DTF?  =  o. 

■»FT  03  n 

116  F<;*=  ;■<  i  s 

0  T  -  2  =  0. 

FI  5  =  0. 

3FUI3N 

C  CASE  ?  -  SIM  -F  RIN  HAS  aEF'J  PROVinFIY  -  (NS'JRGE  -  I) 

I1R  IF  -  <OL  -  OR|<>DT 
CALL  S"ROE 

IF  ILNSUW.  .f-!,  11  no  TO  133 
IF  (OTRS?  0.1  GO  TO  123 

OTa-5?  =  0T  =  5 

122  0Taf>  -  .  ni 

INS  ‘LC  =  0 

IF  (  )TR5?  .GT.  0.1  RETURN 
C  S°LIFf  c  •ict.FTn  •  REINITIALISE 

GO  TO  ( 12  !.!?«..  1  25)  .NGEO 

123  FL5  :  FLS 
SFTlJRw 

124  FI.  i  ri  .  fus 
RfTLPn 

125  FS*s  5U  I N 
FIS  *  3. 

RETURN 

IF  SURRGUTI.-Jf  SURGE  RETURNS  WITH  A  FLAG  INDICATING  CAPACITY 
OF  SURGE  RIN  HAS  RCFN  F ACFfOFfi  (LNSURG=1)  DURING  OT.  THAN  IRFAT 
AS  IF  ThFRr  is  NO  SNR OF  5 IN 
130  0T 3S  =  0TH52 

GO  TO  (  113. 110. II!  ). 

END 


NCCO 


r>or»nnor>o 


MM 


SUBROUTINE  SURGE 


subroutine  surge 

Twl  ENTRY  =»0 1'JTS  I  JTO  this  SUBROUTINE 
ENTRY  SURC.r  -  T  0  PUT  MUCK  INTO  R  IN 
ENTRY  SURGE2  -  TO  TAKE  MUCOuT 


ELEMENT  -  MATERIALS  HANDLING 

GENERAL  PROCESS  -  LONG  HAUL  CONVEYOR  PELT 

ACTIVITY  -  LOADIN'.  EXCESS  MUCK  INTO  SURGE  SIN  0a 


UNLOAD ING  FROM  PIN 


C 


c 


COMMON/ all/  xt.str.ia.poo.cs.tamr.elow.ielag.at.d.f.sk.t.dt.y.or 
I.  XMAY.TMA* .TD.XO.XOISCH.OX 
COmMON/mONEY/  OJM'H 

COuMOn/CONVEY/  ACM.nTRS.O.M.EF .EL  »HP .DC «SM IN . pR I . 

1  WP.XLE.NSUROE.OE.OO.  PTCR.OTMP,  JR.VRI.NYAON.NOEO.XE.LNSURC-. 

?  STIME.OOMR.OTUI .OTPO.ELM.OMAtNT 
CO“MON/NERCOm/  LM  ACO.N.LMCAPC  .LNSPLC  »LLOADR  «EDl  •L"<  I N  .LuU<OT  .LNRYRY 

Common /OLD  COM/  maCON.mCAPC  **<SPL  IC«1-OaOR«OL  •MK  IN.MUKOT  .NRYRY 

EOUIVALE.NCP  (PR.PCI.IXOE.XE) 

DATA  0/0./ 


ENTRY  SURGE 
TEILNSURG  .EO. 

o*ooe 

IE  (0  .GT.  OC) 
LNSURC.  *  0 
RETURN 
LNSURG  =  I 
RETURN 


RETURN 
TO  10 


ENTRY  SURGE? 

0=0-0E 

IF  (0  .GT.  0.)  RETURN 

0=  0.0 


RETU°N 

end 
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NN.  SUBROUTINE  BELT(ICYCLE) 


r> 

SUBROUTINE  BELT ( I CYCLE ) 

L 

c 

ELEMENT  -  MATERIALS  HANDLING 

c 

GENERAL  PROCESS  -  LONG  HAUL  CONVEYOR  BELT 

c 

ACTIVITY  -  MAINTENANCE  OF  BELT 

000003 

c 

COMMON/ ALL/  XT»STPt I A  * RQD»CS» T AMB* FLOW* IFLAG* AT » D » E » SK *T *DT « X » PR 

It  XMAX,TMAX.TO»XO*XDISCH»DX 

000003 

COMMON/MONEY/  DJMMH 

000003 

COMMON/CONVEY/  ACM  »OTBS  » DWM »EE « EL  » HP  *QC ♦ SMIN. WB I  * 

1  WPtXLF  *NSURGE*OE*QP»  DTCB»DTMR»AB»VBI»NEXON»NGEO»XE»LNSURG» 

2  stime*odmr*dtmi»dtmo»flm»dmaint 

000003 

COMMON/NEWCOM/  LMACON* LMCAPC*LNSPLC »LLOADR »EQL ♦ LMK IN *LMUKOT  *LNBYBY 

000003 

COMMON/OLDCOM/  MACON*MCAPC»NSPLIC*LOADR*QL*MKIN*MUKOT*NRYRY 

000003 

EQUIVALENCE  (PR*PC) ♦ (XDEtXE) 

000003 

DATA  PI/3. 141502/ 

000003 

c 

DATA  W*TM*T  /3*0./ 

INITIALIZE  PARAMETERS 

000003 

IF  (ICYCLE  .NE.  1)  GO  TO  10 

000005 

ICYCLF  =  10 

000006 

c 

W-0. 

DWM  MUST  HAVF  A  DEFAULT  VALUE  SPECIFIED.  SET=1.  FOR  COMPILATION 

000006 

IF  (DWM  .LE.  0.)  OWM=l. 

000011 

TM  =  0. 

000012 

TT=t)TMB 

000014 

10 

IF  (MACON  .EQ.  1)  GO  TO  30 

000016 

IF ( OTCB  .EQ.  0.)  GO  TO  20 

000017 

TM  *  TM  ♦  DT 

000021 

IF (DTCR  .GT.  TM)  GO  TO  15 

000024 

LMACON  =  1 

000025 

TM  =  0. 

000025 

GO  TO  30 

000026 

15 

LMACON  =  0 

000027 

c 

RETURN 

TONAGE  OF  MUCK  CRITERIA  SPECIFED 

000030 

20 

W=(PI*D*0/4.)/2000.  »CS  *DX  *W 

000037 

IF  (W  .GE.  DWM)  GO  TO  25 

000041 

LMACON  =  0 

000042 

RETURN 

000042 

25 

LMACON  =  1 

000043 

c 

W  =  0. 

timekeeper  ON  MAINTENANCE 

000044 

30 

TT  =TT-OT 

000046 

IF (TT  .LE.  0)  GO  TO  40 

000047 

LMACON  =  1 

000050 

RFTURN 

000051 

c 

40 

LMACON  =  0 

OMAINT  NEEDS  A  VALUE  IF  IT  HAS  NOT  BEEN  SPECIFIED* 

c 

OMAINT  SET  =1.  FOR  COMPILATION 

000052 

IF  (OMAINT  .LE.  0.)  DMA INT  =1. 

000055 

DJMMH  =  DJMMH  ♦  OMAINT 

000057 

RETURN 

000057 

END 

•FOLLOWING  VARIARLES  EQUIVALENCED  BUT  NOT  REFERENCED 
PC 
XE 
PR 
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o  o  o  o  o 


00 


SUBROUTINE  XXXMNT  (General  Maintenance  Routine  to  Be  Adapted  by  User 

for  Specific  Processes) 


SURRQUTINE  XXXMNT 
ELEMENT  - 

general  process  - 

ACTIVITY  -  GENERAL  MAINTENANCE  »  REPAIR 


C 

C 


c 

c 

c 


c 

c 


c 

c 


c 

c 


c 

c 


c 


COMMON  / 

DATA  TRET. TMNT  /Z»0./ 
DATA  INIT.NEEDIN  /2»0/ 


EQUIVALENCE  FOR  SPECIFIC  GENERAL  PROCESS 


EQUIVALENCE  (GOTC.  ) 

EQUIVALENCE  (GOTH.  1 

EQUIVALENCE  (GOJM,  ) 

EQUIVALENCE  i 0  JUGR *  I 

EQUIVALENCE  (MMNT.  ) 

EQUIVALENCE  (LMMNT.  ) 

EQUIVALENCE  (MFLAG.  ) 

EQUIVALENCE  (LMELAG.  ) 


INITIALIZATION 

10  TRET  =  GOTC 
MMNT  »  I 

IF  (GOTC,  .FO.  0.1  GOIC  » 

IE  (GOTM  .FQ.  0.1  GOTM  ■ 

IF  (GOJM  a  0.1  GOJM  ■ 

INIT  *  I 

IF  (NEEDIN  ■  0)  GO  TO  999 
NFFOIN  ■  0 
GO  TO  ZOO 


NORMAL  ENTRY 

ENTRY  XXXRPR 

IF  (INIT  .EQ.  II  GO  TO  ZOO 
NEFOIN  «  I 
GO  TO  10 

IS  MAINTENANCE  IN  PROGRESS 
ZOO  IE  (MMNT  .EO.  01  GO  TO  400 

IS  MAINTENANCE  REQUIRED 

TRFT  ■  TRET  -  OT 

IF  (TRET  .OT.  0.1  GO  TO  90S 

OOFS  ANY  OTHER  SITUATION  EXIST  SUCH  THAT  MAINTENANCE  SHOULO 
NOT  RF  PERMITTED.  IE  SO.  GO  TO  999 

LMMNT  *  0 

LMFLAG  ■  LMELAG  ♦  I 
GO  TO  999 

UPDATE  PROGRESS  OF  MAINTENANCE 

400  TMNT  *  TMNT  *  OT 

is  maintenance  completed 

IF  (TMNT  ,LT.  GOTM!  GO  TO  999 
OJMGP  ■  OJMC.P  .  GOJM 
TRCT  ■  C.DTC 
TMNT  ■  0. 

LMMNT  «  1 

LMFLAG  »  LMFLAG  -  1 
999  RETURN 

NOTF  —  CHECK  TESTING  OF  MFLAG  !N  RELATED  SUBROUTINES 
ENn 
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